From bd52e8c452449c1d0c1d80da7932880966df12f0 Mon Sep 17 00:00:00 2001 From: marcelcosta Date: Thu, 2 Feb 2023 16:54:09 +0100 Subject: [PATCH] =?UTF-8?q?Correcci=C3=B3n=20nombre=20de=20fecha=20de=20ex?= =?UTF-8?q?tracci=C3=B3n.=20Soluci=C3=B3n=20de=20bug.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- BDAccess/app.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/BDAccess/app.R b/BDAccess/app.R index e6f03af..9218c14 100644 --- a/BDAccess/app.R +++ b/BDAccess/app.R @@ -384,7 +384,7 @@ server <- function(input, output) { new.samp.df<-data.frame("NHC"=values[["DF"]]$NHC, "samples"=new.samp) %>% merge(sqlFetch(dta,"OVID"), all.x=T) %>% arrange(samples) samples.exp<-merge(samples %>% slice(0), new.samp.df %>% select(-NHC), all=T) %>% select(colnames(samples)) %>% arrange(samples) if (today==TRUE){ - samples.exp$IQ_date<-format(Sys.Date(), "%d/%m/%y") + samples.exp$Date_extraction<-format(Sys.Date(), "%d/%m/%y") } nhc.table<-values[["DF"]]