带有Kable的动态标签和表格-英雄云拓展知识分享

匿名投稿 188 2024-01-22

我正在使用以下代码在rmarkDown中使用表创建动态选项卡。

# TEST``` {r echo=FALSE, results = 'asis', message = FALSE, warnings = FALSE}
print_month <- function(month) {
cat(" \n##", format(month, "%B"), " results \n")
print(knitr::kable(data.frame(A = c(1,2,3), B = c(1,2,3))))
cat(" \n")
}
seq.Date(from = ymd(20170101), to = ymd(20170601), by = 'month') %>%
purrr::walk(print_month)
```

我之前看过它行之有效的，但是我没法真正缩小为何有时会失败。失败时，看起来像这样

当我查看HTML代码时，表是段落，但是当正常工作时，应将其作为表渲染...

看答案

或许是 print() 和 cat() 功能可能正在相互作用？

我更喜欢函数返回一个组装的字符串，并让呼唤者决定如何输出它。

library(magrittr)library(lubridate)
assemble_month <- function(month) {
d <- mtcars[1:5, 1:6] #data.frame(A = c(1,2,3), B = c(1,2,3))
html_table <- knitr::kable(d, format = "html")
paste0(
"\n##", format(month, "%B"), " results\n",
html_table,
"\n"
)
}
seq.Date(from = ymd(20170101), to = ymd(20170601), by = 'month') %>%
purrr::map_chr(assemble_month) %>%
cat()

我的方法的缺点是，它以某种方式输出HTML表没法利用Knitr的NICE MARKDOWN TO TO-HTML CSS格式。我通常会添加样式 KableExtra，所以 html_table 变成

  html_table <- mtcars[1:5, 1:6] %>%knitr::kable(format = "html") %>%
kableExtra::kable_styling(
bootstrap_options = c("striped", "hover", "condensed", "responsive"),
full_width = F
)

（我使用了一个更大的示例表使其看起来更现实。）

🚀🌟 点击注册免费试用超级应用平台-英雄云企业级hpapaas 🌟🚀 😃👉🌐

免责声明：

本网址（www.yingxiongyun.com）发布的材料主要源于独立创作和网友匿名投稿。此处提供的所有信息仅供参考之用。我们致力于提供准确且可信的信息，但不对材料的完整性或真实性作出任何保证。用户应自行验证相关信息的正确性，并对其决策承担全部责任。对于由于信息的错误、不准确或遗漏所造成的任何损失，本网址不承担任何法律责任。本网站所展示的所有内容，如文字、图像、标志、音频、视频、软件和程序等的版权均属于原创作者。如果任何组织或个人认为网站内容可能侵犯其知识产权，或包含不准确之处，请即刻联系我们进行相应处理。