From e948b086ed9675f611c59f5361a73101485b4562 Mon Sep 17 00:00:00 2001
From: del Carpio Huerta <Y2955361J@ICO.SCS.local>
Date: Tue, 1 Mar 2022 13:03:42 +0100
Subject: [PATCH] Quitar un Id.

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

diff --git a/sqlFunctions.R b/sqlFunctions.R
index 83b93ec..f7e9538 100644
--- a/sqlFunctions.R
+++ b/sqlFunctions.R
@@ -158,7 +158,7 @@ sqlWriteTemp<-function(conn=dta, nhcs=nhc.test, file="queryOV.xlsx", samples.mod
       ## Importar los datos clínicos de pacientes existentes y generar nueva entrada par los nuevos
       upd.clinics<-sqlFetch(conn, "CLINICOS")
       umid.new<-sqlFetch(conn, "UMID") %>% filter(NHC %in% nhcs)
-      upd.clinics<-merge(umid.new,upd.clinics %>% select(-Id), all.x=T, by="UMID")
+      upd.clinics<-merge(umid.new,upd.clinics, all.x=T, by="UMID")
       upd.clinics$NHC<-as.character(upd.clinics$NHC)
       for (i in colnames(upd.clinics)[sapply(upd.clinics, lubridate::is.POSIXct)]){upd.clinics[,i]<-as.Date(upd.clinics[,i])}
     }