Browse Source

Machacar plantilla.

main
Costa 2 years ago
parent
commit
72f89330e6
1 changed files with 6 additions and 1 deletions
  1. +6
    -1
      sqlFunctions.R

+ 6
- 1
sqlFunctions.R

@ -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)}

Loading…
Cancel
Save