Canvi a fitxer BDpath en ~.

R/sqlFile.R

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