|
|
@ -184,7 +184,12 @@ sqlWriteTemp<-function(conn=dta, nhcs=nhc.test, file="queryOV.xlsx", samples.mod |
|
|
|
} |
|
|
|
|
|
|
|
## Exportar tablas a la plantilla de entrada para su rellenado |
|
|
|
wb <- loadWorkbook(file) |
|
|
|
wb <- createWorkbook(file) |
|
|
|
addWorksheet(wb, "NHC") |
|
|
|
addWorksheet(wb, "samples") |
|
|
|
addWorksheet(wb, "CLINICS") |
|
|
|
addWorksheet(wb, "CNAG") |
|
|
|
addWorksheet(wb, "RNADNA") |
|
|
|
writeData(wb, "NHC", merge(nhc.table, upd.umid, sort = F)) |
|
|
|
if (samples.mod){writeData(wb,"samples",samples.exp)} |
|
|
|
if (clinics.mod){writeData(wb,"CLINICS",upd.clinics)} |
|
|
|