Использование collapse_rows + с накоплением в HTML не работает - PullRequest
Новая
       103

Использование collapse_rows + с накоплением в HTML не работает

0 голосов
/ 02 июня 2019

Работая с kableextra vignette , я могу успешно получить примеры в разделе «Группировать строки через ячейку multi_row», чтобы получить ожидаемый результат, если я вяжу в pdf. 

library(tidyverse)
library(kableExtra)

collapse_rows_dt <- expand.grid(Country = sprintf('Country with a long name %s', c('A', 'B')),
                                State = sprintf('State %s', c('a', 'b')),
                                City = sprintf('City %s', c('1', '2')),
                                District = sprintf('District %s', c('1', '2'))) %>%
  arrange(Country, State, City) %>% 
  mutate_all(as.character) %>% 
  mutate(C1 = rnorm(n()), C2 = rnorm(n()))

kable(collapse_rows_dt, "latex", booktabs =T,align ="c",linesep ='') %>%
  collapse_rows(1:3,row_group_label_position ='stack')

Однако, если я вяжу в html (и изменяю вызов kable).Первый ряд в стеке больше не складывается. 

library(tidyverse)
library(kableExtra)

collapse_rows_dt <- expand.grid(Country = sprintf('Country with a long name %s', c('A', 'B')),
                                State = sprintf('State %s', c('a', 'b')),
                                City = sprintf('City %s', c('1', '2')),
                                District = sprintf('District %s', c('1', '2'))) %>%
  arrange(Country, State, City) %>% 
  mutate_all(as.character) %>% 
  mutate(C1 = rnorm(n()), C2 = rnorm(n()))

kable(collapse_rows_dt, "html", booktabs =T,align ="c",linesep ='') %>%
  collapse_rows(1:3,row_group_label_position ='stack')

Этот же пример отсутствует в html-версии виньетки.После поиска решения я не могу сказать, не поддерживается ли эта функция в html, является ли она ошибкой, или если есть обходной путь для достижения аналогичного эффекта.

Кто-нибудь знает, как это сделать?

...