Quiero que el usuario elija los datos antes de analizar los datos, pero no puedo obtener el código correcto para esperar la entrada del usuario ...

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()

En este punto, debería mostrar

Elija 1 o 2 para analizar células o exosomas respectivamente:
1. Datos1

Datos2

y ESPERE LA ENTRADA DE USUARIO !!!

Funciona si solo ejecuto el fragmento de código anterior. Pero si ejecuto todo, SALTA A LA PRÓXIMA LÍNEA de código, por ejemplo ...:

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

He leído estas otras publicaciones y me ha ayudado un poco, pero no veo cómo pueden resolver mi problema.

Ejecutar R script_Readline and Scan no detiene la entrada del usuario

detener el script hasta que se ingrese un valor desde el teclado en R

Idioma R: esperando la entrada del usuario con escaneo o línea de lectura