Costa
12 lines
483 B
R
12 lines
483 B
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]])
|
|
}
|
|
}
|