如何通过R脚本命令跨平台实现RStudio清除非当前窗口视图？

现有公开方案大多通过Linux的X11服务模拟发送快捷键信号实现清窗，Windows系统没有对应的X11组件，所以运行会失效。你可以直接把下面的代码放在.R脚本开头，同时实现清空工作环境、清空控制台、关闭所有非当前窗口三类效果，在Windows、Ubuntu的RStudio 1.4及以上版本均可正常运行，效果和手动按下Ctrl+Alt+Shift+W完全一致：

# 清除全局工作环境内所有对象
rm(list = ls())
# 清除控制台输出
cat("\014")

# 关闭所有非当前活动的视图、脚本窗口
if (Sys.getenv("RSTUDIO") == "1") {
  # 自动安装RStudio官方接口包（首次运行触发）
  if (!requireNamespace("rstudioapi", quietly = TRUE)) {
    install.packages("rstudioapi")
  }
  # 获取所有已打开的编辑器窗格信息
  open_panes <- rstudioapi::getSourceEditors()
  active_pane_id <- rstudioapi::getActiveDocumentContext()$id
  # 遍历关闭非当前激活的窗格，默认不触发保存提示
  for (pane in open_panes) {
    if (pane$id != active_pane_id) {
      rstudioapi::closeDocument(pane$id, save = FALSE)
    }
  }
}

注意事项 #

• 方案没有调用操作系统层面的按键模拟接口，而是直接通过RStudio官方维护的rstudioapi操作窗格，不受不同系统窗口机制差异的影响，兼容性稳定
• 首次运行如果本地没有安装rstudioapi包，会自动拉取安装，不需要提前手动配置
• 代码执行时会直接关闭其他打开的脚本、数据预览页，不会弹出保存提示，如果其他窗格有未保存的内容请提前手动存储
• 代码自带运行环境判断，只有在RStudio环境下才会触发清窗逻辑，在原生R、R GUI等其他环境运行时只会执行前两行清环境、清控制台的操作，不会抛出报错

内容的提问来源于stack exchange，提问作者Jeffrey Rolland