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

Añadir lectura de NHCs. Solución error en sincronización de SAMPLES por la fecha de columna nueva.

Browse Source
This commit is contained in:
Marin Jimenez
2021-11-15 14:19:17 +01:00
parent 29d0fefe69
commit 24cd858bcd
2 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sqlFunctions.R
+2 -1
View File
@@ -91,8 +91,9 @@ sqlSincBD<-function(conn=dta, filetemp="QueryOV.xlsx", sinc.samples=F, sinc.clin
if (sinc.samples & nrow(upd.samples) > 0){ if (sinc.samples & nrow(upd.samples) > 0){
upd.samples$IQ_date<-as.Date(upd.samples$IQ_date) upd.samples$IQ_date<-as.Date(upd.samples$IQ_date)
upd.samples$TIL_date<-as.Date(upd.samples$TIL_date)
### !! Atención, esto cambia la base de datos: ### !! Atención, esto cambia la base de datos:
sqlSave(conn, upd.samples, tablename="SAMPLES", append = T, varTypes = c("IQ_date"="date")) sqlSave(conn, upd.samples, tablename="SAMPLES", append = T, varTypes = c("IQ_date"="date","TIL_date"="date"))
print("Tabla SAMPLES sincronizada.") print("Tabla SAMPLES sincronizada.")
} }
workflow.R
+4 -1
View File
@@ -7,6 +7,9 @@ sqlInitialize()
dta<-odbcConnectAccess2007(access.file = file, dta<-odbcConnectAccess2007(access.file = file,
pwd = .rs.askForPassword("Enter password:")) pwd = .rs.askForPassword("Enter password:"))
## Importamos los NHC de las muestras nuevas
nhc.test<-read.xlsx("queryOV.xlsx", sheet = "NHC") %>% pull(NHC)
# Ver si ya hay muestras de los pacientes (opcional, para uno mismo) # Ver si ya hay muestras de los pacientes (opcional, para uno mismo)
sqlShowSamples() sqlShowSamples()
@@ -21,4 +24,4 @@ sqlWriteTemp()
#### ####
# Sincronizar lo rellenado en las pestañas samples y clinics # Sincronizar lo rellenado en las pestañas samples y clinics
sqlSincBD(sinc.samples = T, sinc.clinics = T) sqlSincBD(sinc.samples = T, sinc.clinics = T)