Actualiser app.R
This commit is contained in:
parent
10edac8998
commit
9f1e49a248
9
app.R
9
app.R
|
@ -267,12 +267,7 @@ server <- function(input, output, session) {
|
|||
})
|
||||
|
||||
|
||||
# Partie permettant de fusionner les fichiers
|
||||
observe({
|
||||
if (session$userData$authorize == 0) {
|
||||
shinyjs::runjs("shinyjs.hideAllElements();")
|
||||
}
|
||||
if (session$userData$authorize == 1) {
|
||||
|
||||
merged_data <- eventReactive(input$files, {
|
||||
# On lit la liste des fichiers et on les fusionne
|
||||
# Charger les données à partir des fichiers sélectionnés
|
||||
|
@ -929,8 +924,6 @@ server <- function(input, output, session) {
|
|||
|
||||
#output$pls_text <- renderText({'print'})
|
||||
|
||||
}
|
||||
})
|
||||
}
|
||||
|
||||
shinyApp(ui, server)
|
Loading…
Reference in New Issue