如何在R语言中实现非技术用户可编辑的变量输入？

需求说明 #

我需要编写一段R代码，让不懂编程的用户无需理解代码逻辑，就能直接编辑文件路径、偏移值这类变量。期望实现的示例代码框架如下：

# 在这里填写文件名：
file <- "mydata.csv"
# 在这里填写需要的偏移值（逗号分隔）：
offsets <- "-50,-25,0,25,50"

setwd("~/R/projects")
df <- read.delim("~/R/projects/file", sep=",", header=FALSE)

keep <- c(offsets)

遇到的问题 #

在尝试过程中，出现了以下错误：

> offsets <- -50,-25,0,25,50
Error: unexpected ',' in "offsets <- -50,"
> 
> keep <- c(offsets)
Error: object 'offsets' not found
>
> offsets <- '-50','-25','0','25','50'
Error: unexpected ',' in "offsets <- '-50',"
> 
> keep <- c(offsets)
Error: object 'offsets' not found
>
> offsets <- "-20,-10,0,10,20"
> keep <- c(offsets)
> 
> str(keep)
 chr "-20,-10,0,10,20"

可以看到，直接输入逗号分隔的数字会触发语法错误；把偏移值写成完整字符串后，用c()包装得到的是单个字符串，而非我们需要的数值向量。

而预期的正确效果是得到数值向量，如下：

> keep <- c(-50, -25, 0 , 25, 50)
> keep
[1] -50 -25   0  25  50

解决方案 #

1. 把逗号分隔的字符串转为数值向量 #

针对偏移值的问题，我们可以先让用户输入逗号分隔的字符串，再用strsplit()拆分字符串，最后转换为数值类型：

# 用户输入逗号分隔的偏移值
offsets <- "-50,-25,0,25,50"
# 拆分字符串并转为数值向量
keep <- as.numeric(strsplit(offsets, ",")[[1]])

执行后查看结果：

> str(keep)
 num [1:5] -50 -25 0 25 50
> keep
[1] -50 -25   0  25  50

这样就得到了预期的数值向量。

2. 正确调用文件变量 #

原代码中读取文件时硬编码了路径，应该直接使用定义好的file变量，避免用户需要修改路径部分：

# 用户输入文件名
file <- "mydata.csv"
# 设置工作目录后直接用文件名读取
setwd("~/R/projects")
df <- read.delim(file, sep=",", header=FALSE)

# 或者不用setwd，直接拼接完整路径（更稳妥）
df <- read.delim(file.path("~/R/projects", file), sep=",", header=FALSE)

3. 更友好的交互式输入（可选） #

如果想让用户完全不用修改代码，还可以用readline()实现控制台交互式输入：

# 提示用户输入文件名
file <- readline("请输入文件名（例如：mydata.csv）：")
# 提示用户输入偏移值
offsets <- readline("请输入需要的偏移值，用逗号分隔（例如：-50,-25,0,25,50）：")
# 转换为数值向量
keep <- as.numeric(strsplit(offsets, ",")[[1]])
# 读取数据
df <- read.delim(file.path("~/R/projects", file), sep=",", header=FALSE)

用户只需要在控制台按照提示输入内容即可，完全不需要接触代码逻辑。

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