在下一行代码 - readline - Rstudio之前等待R中键盘的用户输入

Question

我希望用户在分析数据之前选择数据，但我无法正确获取代码以等待用户输入...

check<-0
count<-0
data.choice<-function(){
while(check < 1 ){
  check <-as.numeric(readline('Choose 1 or 2 for analysing Data1 or Data2 respectively:  \n 1. "Data1" \n 2. "Data2" '));
  check <- ifelse(grepl("\\D",check),-1,as.integer(check))
  if(is.na(check)|check>2|count>3){
    count<-count+1
    print('Please type only 1 or 2...')
    break}  # breaks when hit enter
}
}
data.choice()

此时应显示

  

分别选择1或2分析细胞或外泌体：
  1.数据1

     

  
1. 数据2
  

并等待用户输入!!!

如果我只运行上面的代码，它就可以工作。 但是，如果我运行整个事情，它会跳到下一行代码，例如......：

if(check==1){   
print("Checking Data1")   
data1<-read.csv("file1.csv")
} 
else if(check==2){   
data1<-read.csv("file2.csv") 
}

我已阅读其他帖子，这对我有所帮助，但我看不出他们如何解决我的问题。

Running R script_Readline and Scan does not pause for user input

stopping the script until a value is entred from keyboard in R

R Language - Waiting for user input with scan or readline