From 109acff436b5add621bbd2b7b6dbe45bcf97a81d Mon Sep 17 00:00:00 2001
From: Costa <47926492N@ICO.SCS.local>
Date: Tue, 1 Mar 2022 14:43:25 +0100
Subject: [PATCH] =?UTF-8?q?Generar=20tabla=20vac=C3=ADa=20cuando=20no=20ha?=
 =?UTF-8?q?ya=20CNAG=20y=20RNA.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 sqlFunctions.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/sqlFunctions.R b/sqlFunctions.R
index 7de8bb2..52235c3 100644
--- a/sqlFunctions.R
+++ b/sqlFunctions.R
@@ -167,13 +167,13 @@ sqlWriteTemp<-function(conn=dta, nhcs=nhc.test, file="queryOV.xlsx", samples.mod
       if (today==TRUE){
         cnag.exp$FECHA_ENVIO<-format(Sys.Date(), "%d/%m/%y")
       }
-    }else{cnag.exp<-NULL}
+    }else{cnag.exp<-sqlFetch(dta, "CNAG") %>% slice(0)}
     if (any(sapply(nhc.table$Samples, function(x) "rna" %in% strsplit(x,",")[[1]]) == T)){
       nhcs.rna<-nhc.table[sapply(nhc.table$Samples, function(x) "rna" %in% strsplit(x,",")[[1]]),"NHC"]
       umid.rna<-sqlFetch(conn, "UMID") %>% filter(NHC %in% nhcs.rna) %>% pull(UMID)
       sample.rna<-samples.exp %>% filter(UMID %in% umid.rna) %>% pull(CODIGO)
       rna.exp<-merge(data.frame("UMID"=umid.rna, "CODIGO"=sample.rna), sqlFetch(dta, "RNADNA") %>% slice(0), all=T)
-    }else{rna.exp<-NULL}
+    }else{rna.exp<- sqlFetch(dta, "RNADNA") %>% slice(0)}
     if (clinics.mod){
       ## Importar los datos clínicos de pacientes existentes y generar nueva entrada par los nuevos
       upd.clinics<-sqlFetch(conn, "CLINICOS")