Corrección de la función de importar NHC de excel.

2022-03-04 17:46:37 +01:00
parent 022a222ddf
commit a8ca15592e
1 changed files with 2 additions and 1 deletions
@@ -89,10 +89,11 @@ server <- function(input, output) {
        if (!is.null(input$file_query)){
            ## Importamos los NHC de las muestras nuevas
            values[["Excel"]]<-read.xlsx(input$file_query$datapath, sheet = "NHC") %>% pull(NHC) %>% as.character()
+            print(values[["Excel"]])
        }
    })
    observeEvent(input$impNHC, {
-        values[["DF"]]$NHC<-values[["Excel"]]
+        values[["DF"]]<-merge(values[["DF"]], data.frame("NHC"=values[["Excel"]]), all.y=T)
    })
    
    ## Handsontable