暂停R脚本以输入文件名

Question

我有一个R脚本，可以对.CSV文件中的数据进行简单的详细说明，我希望每次都能从键盘输入文件名。

我现在使用的系统首先定义一个函数ans将其保存为＆＃34; usr_filename.R＆＃34;：

usr.filename <- function() 
{ 
  readline("Please enter filename: ")
}
data.filename <- usr.filename()

然后从我的脚本中调用它：

#Input filename
    source("usr_filename.R")

此系统有效，但只要脚本在R Studio中逐行运行;如果我尝试通过选择全部并单击＆＃34;运行＆＃34;立即运行整个脚本，结果是：

usr.filename
function() 
{ 
  readline("Please enter filename: ")
}

所以我尝试使用readLines：

使用不同的函数

usr.filename2 <- function() 
{ 
  data.filename <- readLines(prompt="Please enter filename: ", n=-1)
}

但是这个解决方案也行不通。有人可以帮我解决这个问题吗？

R 3.0.3版（2014-03-06） - Rstudio：版本0.98.501 - Windows 7专业版32位SP1

Answer 1

为什么不使用file.choose()功能选择文件？