Список, который является результатом lapply, содержит несколько типов объектов. При специальной индексации объектов в списке, т.е. lists[1][1]
все типы объектов отображаются так, как я хочу, но я не хочу этого делать, я бы предпочел просто написать списки [2], чтобы отобразить все объекты, которые я хочу, за один вызов и один кусок .... но при связывании этого вызова lists[1]
не отображается.
объекты - таблица kableExtra (shiny.tag.list), высокий чартер (HTML widget)
library(highcharter)
library(kableExtra)
gen_list <- function(x){
df_x <- data.frame(x_ = x,y = 5, z=6)
obj_1 <- df_x %>%
knitr::kable( caption = 'test') %>%
kableExtra::kable_styling(bootstrap_options = "striped", full_width = F)
obj_2 <- highcharter::hchart(df_x, 'line',highcharter::hcaes(x = x_, y = y))
list(obj_1,obj_2)
}
lists <- lapply(c(1,2,3), gen_list)
lists[1][1]
lists[1][2]
# in markdown this produces what I want... but I would prefer a one line call like...
lists[1]
, но это не отображает объекты HTML при таком вызове в Rmarkdown, он выводит HTML
при вызове родительского списка: list[1]
What I хотите, с помощью простого однострочного вызова получается такой вывод вывод при вызове отдельных списков: list[1][1] ;list[1][2]