相当于 RStudio 查看器窗格中“扫帚”图标的代码？

Question

要清除 RStudio 中的查看器窗格，我们可以单击“扫帚”图标。

有没有办法使用 R 代码来做到这一点？

更新：这是如何在查看器窗格中随机呈现某些内容的示例（我的问题是我们如何使用代码清除查看器窗格？）

sometext <- "<p>This text will render in the viewer pane</p>"

dir <- tempfile()
dir.create(dir)
TextFile <- file.path(dir, "TextFile.html")

writeLines(sometext, con = TextFile)
rstudioapi::viewer(TextFile) 

Answer 1

对于任何想知道的人，这有效：

clear_viewer_pane <- function() {
  dir <- tempfile()
  dir.create(dir)
  TextFile <- file.path(dir, "blank.html")
  writeLines("", con = TextFile)
  rstudioapi::viewer(TextFile) 
}

clear_viewer_pane()