Основываясь на выборе файла при вводе пользователем в R

Question

Я довольно новичок в R. Я писал код в прошлом, и мой скрипт работает, когда я не добавляю пользовательский ввод. У меня есть 14 файлов в каждом из 2 путей txt-файлов, из которых нужно выбрать.Каждый из них специально спарен.DS01 связан с VDS1_1.Я вижу путь к файлу в вдове среды, и он перечисляет файлы успешно.Когда я запускаю его, я не получаю ошибок.Но когда я набираю DS01 в ​​интерактивном режиме, я получаю DS01 объект не существует ошибки.

{ 
  askUser <- readline(prompt="Please, enter the data set (1-14) using DS# format:   ")
      SCpathname <-"E:/DS_textfiles/"
      list.files(path = SCpathname, pattern = "txt")
      VDSpathname <<-"E:/VDS/"
      list.files(path = VDSpathname, pattern = "txt")
       # to show the path works and files are there
  print(askUser) 


if (askUser== DS01){

   SCfilename =  "DS01.txt"
   VDSfilename = "VDS1_1.txt"
   SC120000 <- read.table(file=SCfilename, header=FALSE)
   VDS      <- read.table(file=VDSfilename, header=TRUE)

  }else if (askUser== DS02){
       SCfilename = " DS02.txt" 
       VDSfilename = "VDS2_1.txt"
       SC120000 <- read.table(file=SCfilename, header=FALSE)
       VDS      <- read.table(file=VDSfilename, header=TRUE)         

}else if (askUser== DS03){
     SCfilename = " DS03.txt" 
     VDSfilename = "VDS3_1.txt"
                SC120000 <- read.table(file=SCfilename, header=FALSE)
                VDS      <- read.table(file=VDSfilename, header=TRUE)     

   }else if (askUser==DS04 ){

       SCfilename = " DS04.txt" 
        VDSfilename = "VDS4_1.txt"
        SC120000 <- read.table(file=SCfilename, header=FALSE)
        VDS <- read.table(file=VDSfilename, header=TRUE)     

}else {
  return("Choose a different file number")
}
}