'printing' HTML 以编程方式生成的 Rmarkdown 中的小部件
'printing' HTML widgets in programmatically generated Rmarkdown
我正在尝试以编程方式生成一些 Rmarkdown,其中一个部分包含一个 HTML 小部件。如果它们在我的函数中排在最后,则输出正常。但是,如果我将它们包装在 print
中,这样我就可以在它们之后添加其他内容,就像您对绘图所做的那样,它们不会产生任何输出。
也许这与 knitr
处理打印的方式有关,我不确定。但是有谁知道我如何才能让 HTML 小部件表现得像在以编程方式生成的 Rmarkdown 中的情节一样?
示例.Rmd
---
title: "R Notebook"
output:
html_document:
df_print: paged
---
```{r}
ex_plot <- ggplot2::ggplot(iris, ggplot2::aes(Sepal.Length,Sepal.Width)) +
ggplot2::geom_point()
gen_rmarkdown_widget_last <- function() {
cat("# Head 1\n\n")
DT::datatable(iris)
}
gen_rmarkdown_plots <- function() {
cat("# Head 1\n\n")
print(ex_plot)
cat("# Head 2\n\n")
}
gen_rmarkdown_widgets <- function() {
cat("# Head 1\n\n")
print(DT::datatable(iris))
# tried loading from file
# tmp <- tempfile()
# htmlwidgets::saveWidget(DT::datatable(iris), tmp)
# knitr::include_url(tmp)
# tried a different widget
# print(plotly::ggplotly(ex_plot))
cat("# Head 2\n\n")
}
```
```{r, results='asis'}
# works fine
gen_rmarkdown_widget_last()
```
```{r, results='asis'}
# works fine
gen_rmarkdown_plots()
```
```{r, results='asis'}
# Can't have an HTML widget if it is followed by other things
gen_rmarkdown_widgets()
```
已讨论此问题 。
手动添加依赖项是通过以下方式完成的:
data.frame() %>%
DT::datatable() %>%
knitr::knit_print() %>%
attr('knit_meta') %>%
knitr::knit_meta_add() %>%
invisible()
在您提供的示例中:
---
title: "R Notebook"
output:
html_document:
df_print: paged
---
```{r}
library(dplyr)
#load dependencies
data.frame() %>%
DT::datatable() %>%
knitr::knit_print() %>%
attr('knit_meta') %>%
knitr::knit_meta_add() %>%
invisible()
ex_plot <- ggplot2::ggplot(iris, ggplot2::aes(Sepal.Length,Sepal.Width)) +
ggplot2::geom_point()
gen_rmarkdown_widget_last <- function() {
cat("# Head 1\n\n")
DT::datatable(iris)
}
gen_rmarkdown_plots <- function() {
cat("# Head 1\n\n")
print(ex_plot)
cat("# Head 2\n\n")
}
gen_rmarkdown_widgets <- function() {
cat("# Head 1\n\n")
cat(knitr::knit_print(DT::datatable(iris)))
cat("\n \n")
cat("# Head 2\n\n")
}
```
```{r, results='asis'}
gen_rmarkdown_widgets()
```
我正在尝试以编程方式生成一些 Rmarkdown,其中一个部分包含一个 HTML 小部件。如果它们在我的函数中排在最后,则输出正常。但是,如果我将它们包装在 print
中,这样我就可以在它们之后添加其他内容,就像您对绘图所做的那样,它们不会产生任何输出。
也许这与 knitr
处理打印的方式有关,我不确定。但是有谁知道我如何才能让 HTML 小部件表现得像在以编程方式生成的 Rmarkdown 中的情节一样?
示例.Rmd
---
title: "R Notebook"
output:
html_document:
df_print: paged
---
```{r}
ex_plot <- ggplot2::ggplot(iris, ggplot2::aes(Sepal.Length,Sepal.Width)) +
ggplot2::geom_point()
gen_rmarkdown_widget_last <- function() {
cat("# Head 1\n\n")
DT::datatable(iris)
}
gen_rmarkdown_plots <- function() {
cat("# Head 1\n\n")
print(ex_plot)
cat("# Head 2\n\n")
}
gen_rmarkdown_widgets <- function() {
cat("# Head 1\n\n")
print(DT::datatable(iris))
# tried loading from file
# tmp <- tempfile()
# htmlwidgets::saveWidget(DT::datatable(iris), tmp)
# knitr::include_url(tmp)
# tried a different widget
# print(plotly::ggplotly(ex_plot))
cat("# Head 2\n\n")
}
```
```{r, results='asis'}
# works fine
gen_rmarkdown_widget_last()
```
```{r, results='asis'}
# works fine
gen_rmarkdown_plots()
```
```{r, results='asis'}
# Can't have an HTML widget if it is followed by other things
gen_rmarkdown_widgets()
```
已讨论此问题
手动添加依赖项是通过以下方式完成的:
data.frame() %>%
DT::datatable() %>%
knitr::knit_print() %>%
attr('knit_meta') %>%
knitr::knit_meta_add() %>%
invisible()
在您提供的示例中:
---
title: "R Notebook"
output:
html_document:
df_print: paged
---
```{r}
library(dplyr)
#load dependencies
data.frame() %>%
DT::datatable() %>%
knitr::knit_print() %>%
attr('knit_meta') %>%
knitr::knit_meta_add() %>%
invisible()
ex_plot <- ggplot2::ggplot(iris, ggplot2::aes(Sepal.Length,Sepal.Width)) +
ggplot2::geom_point()
gen_rmarkdown_widget_last <- function() {
cat("# Head 1\n\n")
DT::datatable(iris)
}
gen_rmarkdown_plots <- function() {
cat("# Head 1\n\n")
print(ex_plot)
cat("# Head 2\n\n")
}
gen_rmarkdown_widgets <- function() {
cat("# Head 1\n\n")
cat(knitr::knit_print(DT::datatable(iris)))
cat("\n \n")
cat("# Head 2\n\n")
}
```
```{r, results='asis'}
gen_rmarkdown_widgets()
```