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

BDAccess/app.R

@@ -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