Corrección nombre de fecha de extracción. Solución de bug.

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"]]