粘贴到控制台时，命令后的空格导致问题

Question

我有一个简单的代码行，有多个readline命令，如果我直接在控制台中输入它就可以正常工作，或者在现有的R文档中粘贴它，而在最后一个括号后没有任何多余的空格。

{ v1 <- readline("Choose 1: "); v2 <- readline("Choose 2: "); v3<- readline("Choose 2: ")}

如果我运行以上行，我将被要求选择1，然后选择2，然后选择3.此示例很简单，但我喜欢输入大量数据。

但是如果我从R文档复制代码行后无意中复制了一些空格，或者上面的代码包含在其他代码中，那么：

X<-c(1,2,3,4,5)

{ v1 <- readline("Choose 1: "); v2 <- readline("Choose 2: "); v3<- readline("Choose 2: ")}

Y<-c(1,2,3,4)

所有三个readline命令将立即打印，因此我无法输入我的数据。

我尝试在函数中包含readline语句，但是在函数调用之后粘贴空格会遇到同样的问题，导致readline语句全部打印出来。

fun<-function(){
v1 <- readline("Choose 1: "); v2 <- readline("Choose 2: "); v3<- readline("Choose 2: ")
}

fun()

Y<-c(1,2,3,4)

我唯一的运气是使用source（）从单独的R文档调用函数，但我试图避免使用source并将所有内容保存在一个R文档中。理想情况下，我希望能够从一段夹在其他代码中的代码中运行多个readline（或其他一些被要求输入数据的方式）。

Answer 1

您没有提及您的操作系统，但是在Windows上可能还有其他功能：

source("clipboard")