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