Я хочу, чтобы пользователь выбирал данные, прежде чем анализировать данные, но я не могу получить правильный код для ожидания ввода данных пользователем…

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

Data2

и ждите ввода пользователя !!!

Это работает, если я просто запускаю кусок кода выше. Но если я запускаю все это, то, к примеру, переход к следующей строке кода ...:

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

Я прочитал эти другие посты, и это немного помогло мне, но я не понимаю, как они могут решить мою проблему.

Запуск R script_Readline и Scan не делает паузу для пользовательского ввода

остановка скрипта, пока значение не будет введено с клавиатуры в R

Язык R - Ожидание пользовательского ввода со сканированием или readline