Можно ли прочитать и открыть имя файла, введенное пользователем, с помощью функции scan ()?

Question

data<-Cars93
check.datatype <- function(){
  print("Please enter a data name")
  dataname<-scan( what = 'character',n=1)
  assign(dataname,data)
  dataset<-get(dataname)
  colname<-colnames(data)
  for(j in 1:ncol(dataset)){
    if(is.integer(dataset[,colname[j]])){
      dataset[,colname[j]]<-as.numeric(dataset[,colname[j]])
    }
  }
  print("Enter the name of variables")
  colnumber<-scan(what = 'character',n=10)
  for(i in colnumber){
    if(typeof(dataset[,i])=="double"){
      type <- "numeric"
      valuename<-colnames(dataset[i])
    }else if(is.factor(dataset[,i])){
      type <- "factor"
      valuename<-colnames(dataset[i])
    }else{
      type <- "charactor"
      valuename<-colnames(dataset[i])
    }
    cat("The" ,valuename ," variable type is",type,"\n")
  }
}
check.datatype()

Если data2<-iris сохранено, почему функция scan() в check.datatype() не может распознать имя данных как data2?

Пожалуйста, дайте мне знать, есть ли какая-либо функция, кроме функция scan ()