From de5459e8d2d497e2efae239dd4fc304bda303190 Mon Sep 17 00:00:00 2001
From: Marin Jimenez <44653479Z@ICO.SCS.local>
Date: Mon, 25 Oct 2021 16:41:53 +0200
Subject: [PATCH] =?UTF-8?q?Correcci=C3=B3n=20entrada=20samples?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

diff --git a/RellenarOVBD.R b/RellenarOVBD.R
index 0bfd210..1e9e138 100644
--- a/RellenarOVBD.R
+++ b/RellenarOVBD.R
@@ -74,7 +74,7 @@ saveWorkbook(wb,"queryOV.xlsx",overwrite = TRUE)
 
 ## Añadir código de muestra nueva a la base de datos
 nsamples<-sqlFetch(dta, "SAMPLES") %>% nrow
-upd.samples<-read.xlsx("QuerySamplesOV.xlsx")
+upd.samples<-read.xlsx("QueryOV.xlsx", sheet = "samples", detectDates = T)
 rownames(upd.samples)<-(nsamples+1):(nsamples+nrow(upd.samples)) %>% as.character
 
 ### !! Atención, esto cambia la base de datos: