команда readline в R не выполняет дополнительные строки программирования

Question

Я довольно новичок в программировании 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) 

Answer 1

Этот код работает. Я скопировал его в 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" 

и, кажется, работает только хорошо.