如何在Replit的R程序中实现用户输入交互功能？

你的核心问题是Replit默认以非交互模式运行R脚本，导致readline()无法等待用户输入。以下是两种可行的解决方法：

方法一：改用readLines()读取标准输入 #

在非交互模式下，readLines("stdin", n=1)可以捕获用户输入，替代readline()。修改你的示例代码如下：

# 询问用户姓名
name <- readLines("stdin", n = 1)
cat("Hello,", name, "!\n")

运行后程序会暂停等待用户输入，输入完成按回车即可正常输出。

方法二：调整Replit运行命令，强制进入交互模式 #

修改Replit项目的运行配置：将run命令从R --quiet -f main.R改为R -i -f main.R，其中-i参数强制R启动交互模式。此时readline()就能正常工作，你的原代码无需修改即可实现等待输入。

适配漫画藏品工具的交互场景 #

针对你需要让用户按需选择统计项的需求，可以基于上述方法实现菜单式交互示例：

# 漫画藏品统计工具交互菜单
cat("=== 漫画藏品统计工具 ===\n")
cat("1. 查看藏品总数\n")
cat("2. 查看藏品总价值\n")
cat("3. 查看价值前20的漫画\n")
cat("4. 查看系列缺失刊号\n")
cat("请输入选项编号：")

choice <- readLines("stdin", n = 1)

# 替换为你的实际统计逻辑
switch(choice,
       "1" = cat("藏品总数：156\n"),
       "2" = cat("藏品总价值：$2890\n"),
       "3" = cat("价值前20漫画：XXX...\n"),
       "4" = cat("缺失刊号：#3, #7, #12\n"),
       cat("无效选项，请输入1-4之间的编号\n")
)

问题根源说明 #

你的示例中interactive()返回FALSE，是因为Replit默认用脚本模式执行R代码，而非交互式会话。这种模式下readline()会直接跳过输入步骤，导致程序直接执行后续代码。

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