如何在R中捕获用户输入，选择并读取目录中的Excel文件？

你可以在原函数基础上添加用户交互逻辑，结合readxl包（常用的Excel读取工具）完成需求。以下是完整的实现方案：

核心思路 #

• 先确保依赖包可用，避免读取Excel时出错
• 列出目录文件后，支持用户通过序号或文件名选择目标文件
• 加入输入验证逻辑，防止错误输入导致程序崩溃
• 读取并返回Excel文件内容

完整代码实现 #

# 安装并加载readxl包（首次运行需执行安装）
if (!require(readxl)) {
  install.packages("readxl")
  library(readxl)
}

read_BUNQ_data <- function(dir) {
  # 列出指定目录下的所有文件（仅返回文件名，不含完整路径）
  dirs <- list.files(dir, full.names = FALSE)
  
  # 处理空目录情况
  if (length(dirs) == 0) {
    message("指定目录下无文件")
    return(NULL)
  }
  
  # 带序号打印文件列表，方便用户选择
  cat("目录下的文件列表：\n")
  for (i in seq_along(dirs)) {
    cat(sprintf("%d. %s\n", i, dirs[i]))
  }
  
  # 捕获用户输入
  user_input <- readline(prompt = "请输入目标文件的序号或文件名：")
  
  # 解析并验证用户输入
  if (grepl("^\\d+$", user_input)) {
    # 输入为数字序号的情况
    input_num <- as.integer(user_input)
    if (input_num < 1 || input_num > length(dirs)) {
      message("输入的序号超出范围，请重新运行函数")
      return(NULL)
    }
    target_file <- dirs[input_num]
  } else {
    # 输入为文件名的情况
    target_file <- user_input
    if (!target_file %in% dirs) {
      message("输入的文件名不存在，请重新运行函数")
      return(NULL)
    }
  }
  
  # 拼接完整路径并读取Excel文件
  full_path <- file.path(dir, target_file)
  message(sprintf("正在读取文件：%s", full_path))
  excel_data <- read_excel(full_path)
  
  # 返回读取的数据框
  return(excel_data)
}

关键细节说明 #

• full.names = FALSE：仅返回文件名，避免长路径干扰用户查看和输入
• 序号选择：用户只需输入数字即可快速选中文件，比输入完整文件名更高效
• 跨系统兼容：file.path()会自动适配Windows/macOS/Linux的路径分隔符
• 错误防护：通过输入验证提前拦截无效操作，减少程序崩溃概率

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