问题原因 #

select.list()是交互式图形界面函数，当你通过Windows快捷方式运行脚本时：

• 如果用的是Rscript.exe（教程默认常用的批处理运行工具），它属于无交互模式，不支持弹出图形选择框，会直接导致脚本卡住无响应；
• 即使使用R.exe，若快捷方式设置了隐藏控制台/图形界面的参数，也无法正常加载选择框。

解决方案 #

方案1：改用R.exe运行脚本 #

修改快捷方式的目标路径，替换Rscript.exe为R.exe，并添加合适运行参数：

"C:\Program Files\R\R-x.x.x\bin\R.exe" --no-save --no-restore --file="你的脚本路径.R"

（将R-x.x.x替换为你的实际R版本号，脚本路径换成真实文件路径）

方案2：替换为命令行交互（适配Rscript模式） #

如果需要保留Rscript.exe的静默运行特性，同时保留选择功能，将select.list替换为命令行输入模式，规避图形界面依赖：

# 替换原select.list代码为以下内容
cat("Qual material deseja pesquisar?\n")
cat("1. VIDRARIA e DESCARTÁVEIS\n")
cat("2. LIMPEZA e ESCRITÓRIO\n")
cat("3. E.P.I.\n")

# 获取用户输入
choice <- readline(prompt = "Digite o número da opção: ")

# 匹配选择结果
planilha <- switch(
  choice,
  "1" = "VIDRARIA e DESCARTÁVEIS",
  "2" = "LIMPEZA e ESCRITÓRIO",
  "3" = "E.P.I.",
  stop("Opção inválida! Saindo...")
)

方案3：修复字符编码问题 #

Windows默认编码可能与脚本的UTF-8编码冲突，导致交互界面显示异常：

1. 保存脚本时选择UTF-8带BOM格式；
2. 在脚本开头添加编码配置：

options(encoding = "UTF-8")

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