Bonsoir tout le monde.
J'essaie de déployer mon application Rshiny à l'aide de shinyapps.io. L'application importe une base de donnée excel de format csv et l'affiche à l'utilisateur. En compilant localement, l'application marche bien mais lorsque je fais le déploiement, j'obtiens une erreur. "An error occured, Check your logs or contact the app author for clarification".
library(shiny)
library(shinydashboard)
library(DT)
library(shinydashboardPlus)
ui <- dashboardPage(
dashboardHeader(
title = "Tableau de bord"
),
dashboardSidebar(
data=fileInput('base',"Importation")),
dashboardBody(dataTableOutput("Table")))
server <-function(input, output,session) {
data<-reactive({
base=input$base
ext<-tools::file_ext(base$datapath)
req(base)
validate(need(ext=="csv", "Please upload a csv file"))
read.csv(base$datapath, header=T, sep=",", dec=".")
})
output$Table<-renderDT(
data(),
filter = "top",
server = TRUE,
extensions = c('Buttons', 'Scroller'),
options = list(dom = 'Blfrtip',buttons = c('csv', 'excel', 'pdf'),
scrollY = '600px')
)
}
shinyApp(ui, server)
