r - DT 包不适用于使用 hugo-future-imperfect 主题的 blogdown

Question

我有一个基于 hugo-future-imperfect 主题的 blogdown 站点，其中在 rmd 中正确创建了 DT 输出，但在应用 serve_site/build_site 时未显示数据（尽管标题是）

我创建了两个全新的站点（因此没有其他复杂性）来说明这个问题。这是代码和输出

```{r DT}
library(DT)
library(tidyverse)

iris %>% 
  datatable()
```

a) 默认主题

b) 雨果不完美

Answer 1

您可以使用该软件包widgetframe。

安装包，然后将数据表保存在变量中。

install.packages("widgetframe")

ts <- iris %>% DT::datatable()

因此，当您要显示数据表时，只需执行以下操作：

widgetframe::frameWidget(ts)

这对我行得通！

Answer 2

来自https://owi.usgs.gov/blog/leaflet/和https://github.com/rstudio/blogdown/issues/20的答案是在 iframe 中显示输出。所以：

将输出绑定到代码中的变量，不要显示此块的输出：

```{r, message=FALSE, warning=FALSE, include=FALSE}
library(DT)
library(tidyverse)

d1 <- iris %>% 
  datatable()

d1

```

在下一个块中，将小部件保存到单独的文件中（隐藏此文件的代码和输出）。

```{r, message=FALSE, warning=FALSE, include=FALSE}
library(htmlwidgets)
library(htmltools)

htmlwidgets::saveWidget(d1, file = "d1.html", selfcontained = TRUE)

```

小部件不保存为 d1.html，而是创建文件夹 d1 并在文件夹中创建文件 index.html。您需要从 iframe 标记（在代码块之外）引用此索引文件

<iframe seamless src="../d1/index.html" width="100%" height="500"></iframe>

您应该在页面中看到此 iframe 的输出。

这不是一个很好的解决方法。希望问题将很快在 rblogdown 中得到解决。

Answer 3

除了上面 MrHopko 的回答之外，您还可以将数据表支持破解到您的主题中。今天早上我刚刚破解了我的 hugo 主题来支持数据表。

在我的示例中，您将直接在主题中进行更改，但也可以使用覆盖机制。

您可以运行DT::saveWidget(d1, "temp.html", selfcontained = FALSE)一次以生成必要的库。然后将“temp_files/*”复制到“themes/your-theme/static/lib”

这将复制几个 javascript 库。然后你需要在你的主题中引用它们。然后你需要将库引入你的局部。然后，您需要将“temp.html”中的依赖项复制到它们关联的部分中。

然后您需要设置它，以便您的帖子加载这些依赖项。就我而言，我需要将<script>标签放入“themes/my-theme/layouts/partials/scripts.html”并将<link rel="stylesheet" ...>标签放入“themes/my-theme/layouts/partials/head.html”。

就我而言，我补充说：

<link href="{{ "lib/datatables-css-0.0.0/datatables-crosstalk.css" | relURL }}" rel="stylesheet">
<link href="{{ "lib/dt-core-1.10.16/css/jquery.dataTables.min.css" | relURL }}" rel="stylesheet">
<link href="{{ "lib/dt-core-1.10.16/css/jquery.dataTables.extra.css" | relURL }}" rel="stylesheet">
<link href="{{ "lib/crosstalk-1.0.0/css/crosstalk.css" | relURL }}" rel="stylesheet">

到 head.html 和

<script src="{{ "lib/htmlwidgets-1.0/htmlwidgets.js" | relURL }}"></script>
<script src="{{ "lib/jquery-1.12.4/jquery.min.js" | relURL }}"></script>
<script src="{{ "lib/datatables-binding-0.4/datatables.js" | relURL }}"></script>
<script src="{{ "lib/dt-core-1.10.16/js/jquery.dataTables.min.js" | relURL }}"></script> 
<script src="{{ "lib/crosstalk-1.0.0/js/crosstalk.min.js" | relURL }}"></script> 

到scripts.html

在那之后

```{r, results = "asis"}
DT::datatable(d1)
```

应该管用。