javascript - 将数据动态加载到 rmarkdown html 输出中

Question

有没有办法在打开 html 输出时动态加载(例如，通过 javascript 或 ajax)关联的数据和通过 Rmarkdown 生成的 html 输出文件？

例如，我有这个简单的 Rmarkdown 文件，它生成一个图(在 svg 中)和一个表格:

---
title: "test"
output: 
    html_document:
        self_contained: false
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(dev = "svglite", fig.ext = ".svg")
library(svglite)
library(DT)
```

```{r, echo=FALSE}
DATA <- data.frame(a = 1:5, b = 6:10)
plot(DATA)
datatable(DATA)
```

有没有一种方法可以将数据提供给 html 文件，以便当数据发生变化并且我再次打开它时，绘图和表格会自动更新，而不必呈现 Rmarkdown 脚本？

Answer 1

是的，这是可能的。您可以使用本地数据或存储在某处的数据，例如 Google 表格。

第 1 步)将 runtime: shiny 添加到您的 YAML。这不会使它“ Shiny ”，但会使其充满活力。

更新的 YAML:

---
title: "test"
output: 
    html_document:
        self_contained: false
runtime: shiny
---

第 2 步)使用函数调用您的数据。

```{r giveMe,echo=F}

giveMeData <- function(){
  read.csv("./../_data/carData.csv")
}

dataGiven <- giveMeData()
```

无论是在 RStudio 的查看器 Pane 中还是在浏览器中，您只需在更新数据后刷新 View 或页面。

为了对此进行测试，我使用的唯一其他代码如下:

<!--- inline R code to show the data --->

The column names are `r names(dataGiven)`.
There are `r nrow(dataGiven)` observations in this data.


```{r itsGiven, echo=FALSE}
# plot the data
plot(dataGiven)
datatable(dataGiven)
```

我将列名称更改为“Displacement”并刷新(不是重新运行、运行、编织，只是刷新)