From 72f89330e60e3ff46bb30878ff774fe72a177ffb Mon Sep 17 00:00:00 2001
From: Costa <47926492N@ICO.SCS.local>
Date: Tue, 1 Mar 2022 14:43:47 +0100
Subject: [PATCH] Machacar plantilla.

---
 sqlFunctions.R | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/sqlFunctions.R b/sqlFunctions.R
index 52235c3..d73f10b 100644
--- a/sqlFunctions.R
+++ b/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)}