如何通过函数程序化从RStudio Server下载本地文件？

1. RStudio 专属方案：rstudioapi::downloadFile() #

这是最直接的RStudio原生解决方案，专门用来触发浏览器下载服务器上的本地文件，无需构造URL，直接传入文件路径即可：

library(rstudioapi)
# 替换为你的目标文件绝对路径
target_file <- "/home/user/data/results.csv"
downloadFile(target_file)

执行后会直接调用RStudio前端弹出下载窗口，和手动UI操作效果完全一致，全程程序化完成。

2. 跨环境通用方案（适配Jupyter Notebooks等） #

如果需要在非RStudio环境（比如Jupyter运行R内核）实现，可通过临时搭建HTTP服务暴露文件，让浏览器访问下载。用httpuv包可以快速实现：

library(httpuv)

download_local <- function(file_path) {
  if (!file.exists(file_path)) stop("指定文件不存在")
  
  file_name <- basename(file_path)
  file_size <- file.info(file_path)$size
  
  # 启动临时HTTP服务器
  server <- startServer(
    host = "0.0.0.0",
    port = 8080,
    app = list(
      GET = function(req) {
        if (req$PATH_INFO == "/get-file") {
          list(
            status = 200L,
            headers = list(
              "Content-Type" = "application/octet-stream",
              "Content-Disposition" = paste0("attachment; filename=", file_name)
            ),
            body = readBin(file_path, "raw", file_size)
          )
        } else {
          list(status = 404L, body = "Not Found")
        }
      }
    )
  )
  
  cat(paste0("请在浏览器打开此链接下载: http://localhost:8080/get-file\n"))
  readline("下载完成后按回车关闭服务器: ")
  stopServer(server)
}

# 使用示例
download_local("/path/to/your/target/file.txt")

注意：如果是远程托管的Jupyter环境，需要确保端口8080能通过端口转发映射到本地，否则无法访问链接。

3. 类Unix环境下用system()调用命令行工具 #

如果服务器是Linux/macOS，也可以通过system()启动临时HTTP服务，借助系统自带工具实现：

target_file <- "/path/to/your/file.csv"
file_dir <- dirname(target_file)
file_name <- basename(target_file)

# 切换到文件目录并启动Python临时HTTP服务
setwd(file_dir)
system("python3 -m http.server 8081 &")

# 输出下载链接
cat(paste0("访问此链接下载: http://localhost:8081/", file_name, "\n"))

# 下载完成后手动关闭服务器（可选）
# system("pkill -f 'python3 -m http.server 8081'")

这个方法依赖服务器上的Python环境，适合临时快速使用，但需要手动管理服务器进程。

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