inst/application/ui.R

In joelgombin/detectR: Unexpected reader detectR

function(request) {
  fluidPage(
    useShinyjs(),  # Include shinyjs
    title = "Umberto - Détecteur de lecteurs inattendus",
    theme = "style.css",
    titlePanel(title = div(img(src = "./img/openedition_72dpi.png", width = 200), br(),  "Bienvenue dans le détecteur de lecteurs inattendus !")),
    sidebarLayout(
      div(id = "panel", 
          sidebarPanel(
            tags$h3("Plateformes :"),
            br(),
            switchInput("hypotheses",
                        "Hypothèses",
                        value = TRUE),
            switchInput("revues",
                        "Revues.org",
                        value = TRUE),
            switchInput("books",
                        "OpenEdition Books",
                        value = TRUE),
            switchInput("calenda",
                        "Calenda",
                        value = TRUE),
            tags$h3("Publications :"),
            br(),
            selectizeInput("publications",
                           NULL,
                           choices = publis,
                           multiple = TRUE,
                           options = list(
                             placeholder = "Choisir un ou plusieurs espaces de publications :"
                           )
                          ),
            tags$h3("Période :"),
            br(),
            dateRangeInput("periode",
                           "Choisir la période concernée",
                           start = "2017-01-01",
                           end = Sys.Date(),
                           min = "2017-01-01",
                           max = Sys.Date(),
                           format = "dd/mm/yyyy",
                           weekstart = 1,
                           language = "fr",
                           separator = "à"),
            br(),
            sliderInput("seuil", 
                        label = "Intensité minimale", 
                        min = 0, 
                        max = 1, 
                        value = 0.2, 
                        step = 0.01)
            )
          ),
      mainPanel(
        div(id = "table",
            tags$h2("Choisissez l'épisode de lecteurs inattendus que vous voulez explorer"),
            DT::dataTableOutput('episode'),
            disabled(
              actionButton("go", label = "Explorez !")
            )
           ),
        hidden(
          div(id = "dash",
            htmlOutput("dashboard")
          )
        )
      )
    )
  )
}