我想从 r 脚本生成一些报告。我想避免从 rmd 文件编译时所需的重复,并且如果可能的话,我想从 r 脚本本身生成报告。
该脚本具有一个函数,该函数应该从一系列数据帧生成每个报告,其中每个报告代表一个数据帧的处理。我只是不明白如何单独生成每个报告。目前,报告显示一个文件中的所有数据帧
原始脚本很长,所以我在下面提供了一个最小版本。
structure(list(a = structure(c(1L, 3L, 2L), .Label = c("boo",
"saa", "yaew"), class = "factor"), b = structure(c(2L, 3L,
1L), .Label = c("mfds", "shu", "ren"), class = "factor"), c = structure(c(2L,
1L, 3L), .Label = c("22", "23", "5345"), class = "factor")), .Names = c("a",
"b", "c"), row.names = c(NA, -3L), class = "data.frame")
ReportOp<-function(n) {
this_is_a_name <- n;
this_is_my_data <- ldf[[n]]
#' ---
#' author: Me
#' date:
#' ---
#+results='asis', echo=FALSE
knitr::kable(this_is_my_data, digits = 2)
#'
}
目前我只是使用以下命令生成包含其中所有内容的报告compile notebook
R 工作室中的按钮。
我尝试使用knitr::spin
上面的脚本来自一个单独的文件,如下所示:
library(knitr)
o=spin('/Users/sebastianzeki/Desktop/UntitledTBB.R')
knit2html(o,output="/Users/sebastianzeki/Desktop/out.html")
但我再次只得到一份报告输出而不是三份。