在'asis' R Markdown 块中初始化 JS 渲染器的推荐方法

Question

'asis' 块对于 output Markdown 文档中的对象列表非常有用，请参见以下示例： Highcharter 、 DT 、 Leaflet 、...

然而，在上面的例子中，如果渲染器在前一个块中没有被调用过一次，object 的列表将不会打印，因此它被初始化：这是一个棘手的解决方法，我通过试验找到了更多的解决方案 /错误而不是在文档中找到它。

这是一个可重现的问题，也发布在https://github.com/rstudio/rmarkdown/issues/1877上：

---
title: "Test"
output:
  html_document
---



```{r,echo=F}
library(DT)
library(rmarkdown)
library(purrr)
library(knitr)

df_list <- list("cars" = mtcars, "flowers" = iris)

knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE)
```

```{r}
# If this first initialization isn't run, tabs won't print
DT::datatable(data.frame())
```

# Test tabs {.tabset}

```{r, results='asis' }
imap(df_list, ~{
  cat('## Subtab ',.y,'\n')
  cat('\n')
  DT::datatable(.x) %>%
    htmltools::tagList() %>% as.character() %>% cat() })

```
 

  

Answer 1

如果您确实需要'asis' ，那么您可以手动添加额外的依赖项，例如 JavaScript 和 CSS。您可以使用knitr::knit_meta_add()来完成。

```{r, results='asis'}
library(purrr)
data.frame() %>%
  DT::datatable() %>%
  knitr::knit_print() %>%
  attr('knit_meta') %>%
  knitr::knit_meta_add() %>%
  invisible()

df_list <- list("cars" = mtcars, "flowers" = iris)
imap(df_list, ~{
      cat('## Subtab ',.y,'\n')
      cat('\n')
      cat(knitr::knit_print(DT::datatable(.x)))})
```

Answer 2

您可以 output 没有asis的多个数据表。 只需将小部件列表放入tagList()

```{r}
library(purrr)
list("cars" = mtcars, "flowers" = iris) %>%
  map(~DT::datatable(.x)) %>%
  htmltools::tagList()
```

Answer 3

@cderv 已经回答了我的问题：
https://github.com/rstudio/rmarkdown/issues/1877#issuecomment-679864674

results = 'asis' 现在在https://bookdown.org/yihui/rmarkdown-cookbook/results-asis.html#results-asis中有更多记录。 它旨在从 R 块生成原始 mardown 内容。 任何内容都必须导致文本 output，这意味着对于那些块中的任何 R object 来说，knitr 魔术真的不会发生，因为 knitr 在 knit_print 内容时不做任何调整（因为它是突出文本）

我想我不会像 htmlwidget 那样使用 result = 'asis' to cat() a complex R object。 您找到了解决方法，但可能会遇到其他问题。

由于此答案已被@yihui 点赞，因此提示使用cat + asis on htmlwidget应自行承担风险。

但是，我个人会继续使用问题中提到的解决方法，因为只要它有效，我就会发现它非常实用。

感谢@atusi 和@cderv 的宝贵意见。