运行Shiny Gadget时如何在RStudio Viewer中保留控制台访问权限

我编写了一个RStudio插件，可在RStudio Viewer中启动Shiny gadget，但gadget运行期间R控制台会被锁定，需关闭gadget才能操作控制台。已知使用browserViewer()外部打开可解决此问题，但我希望gadget留在Viewer中，求解决方案或变通方法。

简化示例代码：

library(rstudioapi)
library(shiny)

# Simplified function to fetch history
get_r_history <- function() {
  # Simulates fetching history (real function fetches R or terminal history)
  return(c("plot(1:10)", "summary(mtcars)", "lm(y ~ x, data = df)"))
}

# Simplified addin UI and server
run_addin <- function() {
  history <- get_r_history()

  ui <- fluidPage(
    titlePanel("History Selector"),
    selectInput("selected_line", "Select a line:", choices = history),
    actionButton("insert", "Insert into Script")
  )

  server <- function(input, output, session) {
    observeEvent(input$insert, {
      selected_line <- input$selected_line
      if (!is.null(selected_line)) {
        context <- rstudioapi::getActiveDocumentContext()
        if (!is.null(context)) {
          rstudioapi::insertText(location = context$selection[[1]]$range, text = selected_line)
        }
      }
    })
  }

  shiny::runGadget(ui, server, viewer = shiny::paneViewer())
}

run_addin()

核心思路是让Shiny gadget在独立的后台R进程中运行，避免阻塞主控制台。可以通过callr包实现，具体步骤如下：

1. 安装并加载callr包
2. 修改run_addin的调用方式，用callr::r_bg在后台启动gadget

修改后的代码示例：

library(rstudioapi)
library(shiny)
library(callr)

get_r_history <- function() {
  return(c("plot(1:10)", "summary(mtcars)", "lm(y ~ x, data = df)"))
}

run_addin <- function() {
  history <- get_r_history()

  ui <- fluidPage(
    titlePanel("History Selector"),
    selectInput("selected_line", "Select a line:", choices = history),
    actionButton("insert", "Insert into Script")
  )

  server <- function(input, output, session) {
    observeEvent(input$insert, {
      selected_line <- input$selected_line
      if (!is.null(selected_line)) {
        # 后台进程无法直接调用部分rstudioapi函数，通过sendToConsole传递命令到主进程执行
        cmd <- sprintf('rstudioapi::insertText(location = rstudioapi::getActiveDocumentContext()$selection[[1]]$range, text = "%s")', selected_line)
        rstudioapi::sendToConsole(cmd, execute = TRUE)
      }
    })
  }

  shiny::runGadget(ui, server, viewer = shiny::paneViewer())
}

# 在后台进程启动gadget，不阻塞主控制台
bg_process <- callr::r_bg(function() {
  # 后台进程需重新加载依赖包
  library(rstudioapi)
  library(shiny)
  run_addin()
})

关键说明 #

• callr::r_bg会创建独立后台R进程运行gadget，主控制台可正常操作，不受阻塞
• 后台进程直接调用部分rstudioapi函数会存在权限限制，改用sendToConsole将命令传递到主进程执行，保证插入文本功能正常
• 若需停止后台gadget，可执行bg_process$kill()

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