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

2023-02-02 16:54:09 +01:00
parent 43b807cc63
commit bd52e8c452
1 changed files with 1 additions and 1 deletions
@@ -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"]]