r - 检查是否在 rmarkdown::render 期间运行

Question

如果我在 RMarkdown 文件中手动运行代码，我希望有一个在 RStudio 中查看表格的函数，否则使用 knitr::kable():

ez_view <- function(df){
  if(`IS_RENDERING`){
    knitr::kable(df)
  } else {
    View(df)
  }
}

有没有办法轻松做到这一点？

Answer 1

您可以使用 knitr::opts_knit$get('rmarkdown.pandoc.to') 查找有关 rmarkdown 正在做什么的信息。如果您不进行渲染，则会给出 NULL。所以这个测试应该做你想做的:

if (!is.null(knitr::opts_knit$get('rmarkdown.pandoc.to'))) {
  knitr::kable(df)
} else {
  View(df)
}