inst/shiny-apps/visu-summary/ui.R

In remymoine/PTS-R-package: Reshape and Parameters for Time Series analyses

library(plotly)

ui<-fluidPage(
  titlePanel("Visualisation et résumé des données HOBO - RPTSvisu",
             windowTitle = "RPTSvisu"),#titlePanel
  sidebarLayout(
    sidebarPanel(

  fileInput("file", label = "Fichier à traiter",
            multiple = FALSE,
            accept = c("text/csv",
                       "text/comma-separated-values,text/plain",
                       ".csv")),

  splitLayout(
  radioButtons("sep", label = "Séparateur des colonnes",
               choices = list("Virgule" = ",", "Point-virgule" = ";", "Tabulation" = "\t", "Pipe" = "|"),
               selected = ","),

  numericInput("skip", label = "Lignes à ignorer", value = 1)),#splitLayout


  splitLayout(
  textInput("order", label = "Format des dates",value="ex: mdy_HMS_p!"),

  selectInput("tz", label = "Fuseau horaire d'origine",
              choices = OlsonNames(),
              selected = "Etc/GMT+0")),#splitLayout

  splitLayout(
  numericInput("Dcol", label = "Colonne des dates ", value = NULL),

  numericInput("Pcol", label = "Colonne des valeurs ", value = NULL)),#splitLayout

  hr(),

  h4("Export du fichier formaté"),

  fluidRow(textInput('table_name', 'Nom du tableau à exporter'),
           downloadButton('downloadtable', 'Export .csv')),

  hr(),

  h4("Plage de dates pour le calcul des GDD et FDD"),

  dateRangeInput("dategdd",
                 label = "GDD",
                 start =  Sys.Date(), end = Sys.Date(),
                 min = "2000-01-01", max = Sys.Date(),
                 separator = " - ", format = "yyyy-mm-dd",
                 startview = 'year', language = 'fr', weekstart = 1),


  h4("Valeurs seuils pour le calcul des:"),

  splitLayout(
    numericInput("igt", label = "GDD ", value = 1),
    numericInput("sft", label = "FDD ", value = -1)
  )

  ),#sidebarPanel

  mainPanel(
    tabsetPanel(
      tabPanel("Table",
               fluidRow(width=8,dataTableOutput("rawshape"))
               ),#tabPanel
      tabPanel("Variations journalières",
               fluidRow(plotlyOutput("graphagd")),
               fluidRow(plotlyOutput("graphagdxy"))
               ),#tabPanel

      tabPanel("Variations mensuelles",
               fluidRow(
                   fluidRow(plotlyOutput("graphagm")),
                   fluidRow(plotlyOutput("graphagmxy"))
                 )#fluidRow
               ),#tabPanel

      tabPanel("GDD & FDD",
                 fluidRow(
                   fluidRow(plotlyOutput("graphgdd")),
                   fluidRow(plotlyOutput("graphfdd"))
                 )
               )#fluidRow
    )#tabsetPanel
      )
  )#SidebarPanel
)#fluidPage