如何在RShiny中用按钮打开文件夹？现有方法仅右键可生效求助

直接使用file:协议的链接会被浏览器安全策略限制，无法直接点击打开，以下是两种可行的解决方案：

方法一：通过服务器端命令调用本地文件管理器（推荐） #

利用Shiny的输入响应机制，在点击按钮时触发服务器端的系统命令，直接调用本地文件资源管理器打开目标文件夹。这种方法不受浏览器限制，体验更流畅。

示例代码：

ui <- fluidPage(
  actionButton("open_folder_btn", "打开文件夹")
)

server <- function(input, output, session) {
  observeEvent(input$open_folder_btn, {
    # 根据操作系统选择对应的命令
    folder_path <- "C:/Users/orcunoltulu/Desktop" # Windows路径用/或\\转义
    if (.Platform$OS.type == "windows") {
      system(paste0("explorer ", shQuote(folder_path)))
    } else if (Sys.info()["sysname"] == "Darwin") { # Mac系统
      system(paste0("open ", shQuote(folder_path)))
    } else { # Linux系统
      system(paste0("xdg-open ", shQuote(folder_path)))
    }
  })
}

shinyApp(ui = ui, server = server)

说明：

• shQuote()用于处理路径中的特殊字符，避免命令执行出错
• 代码自动适配Windows、Mac、Linux三种操作系统的打开命令
• 此方法仅适用于本地运行的Shiny应用，远程部署的应用无法访问用户本地文件夹

方法二：修改浏览器安全设置（不推荐） #

如果坚持使用file:协议链接，可修改浏览器设置解除限制：

• Chrome/Edge：地址栏输入chrome://flags/#allow-file-access-from-files，将选项设为Enabled后重启浏览器
• Firefox：地址栏输入about:config，搜索security.fileuri.strict_origin_policy，将其设为false

但该方法需要用户手动修改浏览器配置，通用性差，不建议用于面向其他用户的应用。

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