Browse Source

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

main
Costa 2 years ago
parent
commit
a8ca15592e
1 changed files with 2 additions and 1 deletions
  1. +2
    -1
      BDAccess/app.R

+ 2
- 1
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

Loading…
Cancel
Save