12

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

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

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

iris %>% 
  datatable()
```

a) 默认主题 默认主题

b) 雨果不完美 不完美的主题

4

3 回答 3

11

您可以使用该软件包widgetframe

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

install.packages("widgetframe")

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

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

widgetframe::frameWidget(ts)

这对我行得通!

于 2019-03-29T13:18:41.653 回答
6

来自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 中得到解决。

于 2017-04-29T13:58:36.500 回答
2

除了上面 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)
```

应该管用。

于 2018-02-09T16:50:07.747 回答