From 76fa2fc0b156eae7fed1724b22d477f2cc37f553 Mon Sep 17 00:00:00 2001
From: Costa <47926492N@ICO.SCS.local>
Date: Tue, 1 Mar 2022 14:35:34 +0100
Subject: [PATCH] =?UTF-8?q?No=20machacar=20la=20columna=20Samples=20de=20l?=
 =?UTF-8?q?a=20pesta=C3=B1a=20NHC=20de=20la=20plantilla.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 sqlFunctions.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sqlFunctions.R b/sqlFunctions.R
index e78f649..7de8bb2 100644
--- a/sqlFunctions.R
+++ b/sqlFunctions.R
@@ -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
     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 (clinics.mod){writeData(wb,"CLINICS",upd.clinics)}
     writeData(wb,"CNAG",cnag.exp)