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, {
|
merged_data <- eventReactive(input$files, {
|
||||||
# On lit la liste des fichiers et on les fusionne
|
# On lit la liste des fichiers et on les fusionne
|
||||||
# Charger les données à partir des fichiers sélectionnés
|
# Charger les données à partir des fichiers sélectionnés
|
||||||
|
@ -929,8 +924,6 @@ server <- function(input, output, session) {
|
||||||
|
|
||||||
#output$pls_text <- renderText({'print'})
|
#output$pls_text <- renderText({'print'})
|
||||||
|
|
||||||
}
|
|
||||||
})
|
|
||||||
}
|
}
|
||||||
|
|
||||||
shinyApp(ui, server)
|
shinyApp(ui, server)
|
Loading…
Reference in New Issue