r客户端闪亮的打开文件夹

Question

我创建了一个动作按钮来打开网络文件夹。

但是当客户端点击操作按钮时，该文件夹将在服务器端打开，而不是在客户端打开。我正在使用此功能打开文件夹：

opendir <- function(dir) {
    if (.Platform['OS.type'] == "windows"){
      shell.exec(dir)
    } else {
      system(paste(Sys.getenv("R_BROWSER"), dir))
    }
}