marcelcosta/BDAccess
1
0
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

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

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