From a8ca15592edf6d770949b21a786a2a0dacb3e4b4 Mon Sep 17 00:00:00 2001
From: Costa <47926492N@ICO.SCS.local>
Date: Fri, 4 Mar 2022 17:46:37 +0100
Subject: [PATCH] =?UTF-8?q?Correcci=C3=B3n=20de=20la=20funci=C3=B3n=20de?=
 =?UTF-8?q?=20importar=20NHC=20de=20excel.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 BDAccess/app.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/BDAccess/app.R b/BDAccess/app.R
index fb45b84..ba72263 100644
--- a/BDAccess/app.R
+++ b/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