Machacar plantilla.

2022-03-01 14:43:47 +01:00
parent 109acff436
commit 72f89330e6
1 changed files with 6 additions and 1 deletions
@@ -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)}