|
|
@ -1,5 +1,8 @@ |
|
|
|
sqlFile<-function(file=1, list=F){ |
|
|
|
source(paste0(.libPaths(),"/BDCIT/R/BDpath.R"), encoding = "UTF-8") |
|
|
|
# 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{ |
|
|
|