marcelcosta/BDAccess
1
0
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

Separar ruta de la base de datos de script principal.

Browse Source
This commit is contained in:
Costa
2021-10-21 09:36:47 +02:00
parent fec8a19df9
commit e09e2c6344
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
RellenarOVBD.R
+3 -2
View File
@@ -11,7 +11,8 @@ library(openxlsx)
source("sqlFunctions.R") source("sqlFunctions.R")
## Conexión a la base de datos ## Conexión a la base de datos
dta<-odbcConnectAccess2007(access.file = "C:/Users/47926492N/OneDrive - IDIBELL - Institut d'Investigació Biomèdica de Bellvitge/RATG-PIULATS/OVARIO.accdb", source("ruta_database.R", encoding = "UTF-8")
dta<-odbcConnectAccess2007(access.file = file,
pwd = .rs.askForPassword("Enter password:")) pwd = .rs.askForPassword("Enter password:"))
## Importamos los NHC de las muestras nuevas ## Importamos los NHC de las muestras nuevas
@@ -39,7 +40,7 @@ next.num<-gsub("OVID","",ovid$OVID) %>% as.numeric %>% max(na.rm=T)+1
last.num<-next.num+(length(new.nhc)-1) last.num<-next.num+(length(new.nhc)-1)
upd.ovid<-rbind(ovid,data.frame("NHC"=new.nhc, "OVID"=sprintf("OVID%04d",next.num:last.num))) upd.ovid<-rbind(ovid,data.frame("NHC"=new.nhc, "OVID"=sprintf("OVID%04d",next.num:last.num)))
rownames(upd.ovid)<-as.character(1:nrow(upd.ovid)) rownames(upd.ovid)<-as.character(1:nrow(upd.ovid))
upd.ovid<-filter(upd.ovid, NHC %in% new.nhc) upd.ovid<-filter(upd.ovid, NHC %in% new.nhc) %>% mutate(NHC=as.character(NHC))
### !! Atención, esto cambia la base de datos: ### !! Atención, esto cambia la base de datos:
sqlSave(dta, upd.ovid, tablename="OVID", append = T) sqlSave(dta, upd.ovid, tablename="OVID", append = T)
ruta_database.R
+1
View File
@@ -0,0 +1 @@
file<-"C:/Users/47926492N/OneDrive - IDIBELL - Institut d'Investigació Biomèdica de Bellvitge/RATG-PIULATS/OVARIO.accdb"