Question

我有一个广泛的R脚本，可以对3个指数的股票进行排名。我能够自动为每个索引运行它并生成Knitr HTML文档。我有一种情况，脚本返回一个值（使用SVDialogs），并接收一个excel文档以完成运行。在这种情况下添加时，由于我无法在RMarkdown中运行SVDialogs，因此使事情复杂化。

关于如何克服这一点并在生成HTML输出时接受用户输入的任何提示？

indices <- c("TSX", "TSX Small Cap", "S&P 500")
latestdate <- as.Date('2019-01-17')
renderReport <- function(index, latestdate) {
  rmarkdown::render("test.Rmd",
                    output_file = paste0(index," Score",".html"),
                    params=list(index=index,
                                latestdate=latestdate),
                    output_options = list(self_contained = FALSE, lib_dir = "libs"))

}
purrr::walk2(indices,latestdate, renderReport)

Answer 1

我不得不重新设计要从脚本而不是markdown运行的代码，然后使用rmarkdown :: render（）创建文件。仍然允许用户输入。

使用用户输入在R中创建自动报告

1 个答案: