如何在 Rstudio 的查看器中显示任何 tagList

Question

在开发 Shiny 应用程序的 UI 时，我经常不想继续运行或刷新应用程序来测试代码更改的效果，例如文本和按钮的 tagList。 有时，与 htmlWidgets 一样，运行部分代码的结果会显示在内部查看器中，但大多数只会显示在控制台中。

Answer 1

只是概括https://stackoverflow.com/a/22864759/1976935的解决方案：

in_viewer <- function(x){
  tab <- paste(capture.output(x), collapse = '\n')
  tf <- tempfile(fileext = ".html")
  writeLines(tab, tf)
  rstudioapi::viewer(tf)
}
in_viewer(tagList(p("asdf"),actionButton("qwer","Button")))