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

Mejorar el escriturado de la pestaña nhc de la plantilla.

Browse Source
This commit is contained in:
del Carpio Huerta
2022-02-28 16:06:22 +01:00
parent 766fe1f4d4
commit 1be48b44fb
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sqlFunctions.R
+1 -1
View File
@@ -165,7 +165,7 @@ sqlWriteTemp<-function(conn=dta, nhcs=nhc.test, file="queryOV.xlsx", samples.mod
## Exportar tablas a la plantilla de entrada para su rellenado ## Exportar tablas a la plantilla de entrada para su rellenado
wb <- loadWorkbook(file) wb <- loadWorkbook(file)
writeData(wb, "NHC", upd.umid) writeData(wb, "NHC", merge(data.frame("NHC"=nhcs), upd.umid, sort = F))
if (samples.mod){writeData(wb,"samples",samples.exp)} if (samples.mod){writeData(wb,"samples",samples.exp)}
if (clinics.mod){writeData(wb,"CLINICS",upd.clinics)} if (clinics.mod){writeData(wb,"CLINICS",upd.clinics)}
saveWorkbook(wb,file,overwrite = TRUE) saveWorkbook(wb,file,overwrite = TRUE)