inst/shiny/app/ui.R

In gratis: Generating Time Series with Diverse and Controllable Characteristics

library(shiny)
library(shinydashboard)

shinyUI(
  dashboardPage(
    dashboardHeader(
      title = "gratis",
      titleWidth = "200px",
      tags$li(class = "dropdown", a(href="https://github.com/ykang/gratis", target="_blank", span(icon("github"), " GitHub")))
    ),
    dashboardSidebar(
      width = "200px",
      sidebarMenu(
        menuItem("Structure", tabName = "tab_struct", icon = icon("line-chart")),
        menuItem("Features", tabName = "tab_features", icon = icon("bar-chart")),
        menuItem("Visualise", tabName = "tab_vis", icon = icon("eye")),
        br(),
        tags$li(
          downloadLink("export",
                     style = "margin: 0;",
                     label = NULL,
                     class = "",
                     icon("download"),
                     span("Download series")
          )
        )
      )
    ),
    dashboardBody(
      tabItems(
        tabItem("tab_struct",
                box(
                  title = "Time series structure",
                  uiOutput("series_period"),
                  uiOutput("seasonal_patterns"),
                  numericInput("data_length",
                               label = "Series length:",
                               min = 30,
                               max = 150,
                               value = 60
                  ),
                  numericInput("data_ngen",
                               label = "Number of series generated:",
                               min = 1,
                               max = 100,
                               value = 1
                  )
                )

        ),

        tabItem("tab_features",
                column(3,
                  box(
                    title = "Differences",
                    uiOutput("feature_diff"),
                    width = 12, collapsible = TRUE, collapsed = FALSE
                  ),
                  uiOutput("out_features"),
                  actionLink("btn_gen",
                             box("Generate", width = 12, background = "green")
                  )
                ),
                column(3,
                  box(
                    title = "ACF",
                    uiOutput("feature_acf"),
                    width = 12, collapsible = TRUE, collapsed = FALSE
                  ),
                  box(
                    title = "PACF",
                    uiOutput("feature_pacf"),
                    width = 12, collapsible = TRUE, collapsed = FALSE
                  )
                ),
                column(3,
                  box(
                    title = "STL features",
                    uiOutput("feature_stl"),
                    width = 12, collapsible = TRUE, collapsed = FALSE
                  ),
                  box(
                    title = "Behaviour",
                    uiOutput("feature_behave"),
                    width = 12, collapsible = TRUE, collapsed = FALSE
                  )
                ),
                column(3,
                  box(
                    title = "Shift",
                    uiOutput("feature_shift"),
                    width = 12, collapsible = TRUE, collapsed = FALSE
                  ),
                  box(
                    title = "Heterogeneity",
                    uiOutput("feature_heterogeneity"),
                    width = 12, collapsible = TRUE, collapsed = FALSE
                  )
                )
        ),

        tabItem("tab_vis",
                plotOutput("out_plot")
        )
      )
    )
  )
)