No machacar la columna Samples de la pestaña NHC de la plantilla.

This commit is contained in:
Costa
2022-03-01 14:35:34 +01:00
parent f4f4e6a350
commit 76fa2fc0b1
+1 -1
View File
@@ -185,7 +185,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", merge(data.frame("NHC"=nhcs), upd.umid, sort = F)) writeData(wb, "NHC", merge(nhc.table, 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)}
writeData(wb,"CNAG",cnag.exp) writeData(wb,"CNAG",cnag.exp)