BDCIT/R/sqlFile.R

sqlFile<-function(file=1, list=F){
  # source(paste0(.libPaths(),"/BDCIT/R/BDpath.R"), encoding = "UTF-8")
  sqlFiles<-list()
  sqlFiles[[1]]<-"C:/Users/47926492N/OneDrive - IDIBELL - Institut d'Investigació Biomèdica de Bellvitge/RATG-PIULATS/OVARIO.accdb"
  sqlFiles[[2]]<-"C:/Users/47926492N/OneDrive - IDIBELL - Institut d'Investigació Biomèdica de Bellvitge/RATG-PIULATS/MELANOMA UVEAL CIT.accdb"
  if (list){
    print(sqlFiles)
  }else{
    return(sqlFiles[[file]])
  }
}