我是R编程的新手，想抓住键盘输入来执行更多的编程代码。执行了此处给出的代码后，一切正常，但是进入出口后，程序终止了，并且没有打印y和z。
您能否建议我如何readline在循环中使用命令并在该循环后执行其他程序行？
n=1
a=1
y=c()
z=c()
x=""
while(x!="exit"){
x<-readline("Enter your name ")
library(stringr)
if(x!="exit" & str_detect(x,"N")){
y[n]=x
n=n+1
}else{
z[a]=x
a=a+1
}
}
print(y)
print(z)
此代码有效。我已经将其复制到foo.R文件中，如下所示：
# in "foo.R"
n = 1
a = 1
y = character()
z = character()
x = ""
library(stringr)
while (x!="exit") {
x <- readline("Enter your name\n")
if (x!="exit" & str_detect(x,"N")) {
y[n] = x
n = n+1
} else {
z[a] = x
a = a+1
}
}
print(y)
print(z)
然后，从我的R控制台（具有正确的工作目录），我可以运行：
source("foo.R")
# Enter your name
# Bob
# Enter your name
# Nate
# Enter your name
# exit
# [1] "Nate"
# [1] "Bob" "exit"
而且似乎工作正常。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句