From 899daa7e6c0896693086eb1bd16b9730b57111fc Mon Sep 17 00:00:00 2001
From: Costa <47926492N@ICO.SCS.local>
Date: Mon, 18 Oct 2021 16:18:49 +0200
Subject: [PATCH] =?UTF-8?q?A=C3=B1adido=20se=C3=B1ales=20de=20alerta=20cua?=
 =?UTF-8?q?ndo=20se=20modifique=20la=20base=20de=20datos.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 RellenarOVBD.R | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/RellenarOVBD.R b/RellenarOVBD.R
index 3a31987..aff5a4a 100644
--- a/RellenarOVBD.R
+++ b/RellenarOVBD.R
@@ -32,6 +32,8 @@ last.num<-next.num+(length(new.nhc)-1)
 upd.ovid<-rbind(ovid,data.frame("NHC"=new.nhc, "OVID"=sprintf("OVID%04d",next.num:last.num)))
 rownames(upd.ovid)<-as.character(1:nrow(upd.ovid))
 upd.ovid<-filter(upd.ovid, NHC %in% new.nhc)
+
+### !! Atención, esto cambia la base de datos:
 sqlSave(dta, upd.ovid, tablename="OVID", append = T)
 
 ## Generar código para las nuevas muestras
@@ -65,4 +67,6 @@ saveWorkbook(wb,"queryOV.xlsx",overwrite = TRUE)
 nsamples<-sqlFetch(dta, "SAMPLES") %>% nrow
 upd.samples<-read.xlsx("QuerySamplesOV.xlsx")
 rownames(upd.samples)<-(nsamples+1):(nsamples+nrow(upd.samples)) %>% as.character
+
+### !! Atención, esto cambia la base de datos:
 sqlSave(dta, upd.samples, tablename="SAMPLES", append = T)