inst/shiny-examples/trade-data-explorer/helpers/byCommodityInput.R

In EBukin/tradeAnalysis-pack: Set of functions for trade data analysis

byCommodityInput <- function(id) {
  ns <- NS(id)
  tagList(
    box(
      title = "Parameters selector",
      solidHeader = TRUE,
      status = "primary",
      width = 12,
      collapsible = TRUE,
      fluidRow(
        column(
          width = 3,
          selectInput(
            ns("tbReporter"),
            "Reporter",
            choices = c("Ukraine" = "804"),
            multiple = FALSE
          )
        ),
        column(
          width = 3,
          selectInput(
            ns("tbPartner"),
            "Parter",
            choices = c("World" = "0"),
            multiple = FALSE
          )
        ),
        column(
          width = 4,
          sliderInput(
            ns("tbPeriod"),
            "Years",
            2005,
            2020,
            step = 1,
            sep = "",
            value = c(2007, 2017)
          )
        ),
        column(
          width = 2,
          radioButtons(
            ns("tbLang"),
            "Language",
            choices = c("English" = "eng",
                        "Russian" = "rus"),
            selected = "eng",
            inline = TRUE
          )
        )
      ),
      fluidRow(
        column(
          width = 4,
          selectizeInput(
            ns("tbCommodityGroup"),
            "Commodity group",
            choices = NULL,
            selected = NULL,
            multiple = FALSE
          )
        ),
        column(
          width = 3,
          numericInput(ns("tbNumPartners"),
                       "Number of top commodities",
                       value = 5)
        ),
        column(width = 3,
               numericInput(
                 ns("tbNumPeriods"),
                 "Number of top periods",
                 value = 5
               )),
        column(
          width = 2,
          selectInput(
            ns("tbPalitra"),
            "Choose palitra",
            choices = c(
              "Set3",
              "Set2",
              "Set1",
              "Pastel2",
              "Pastel1",
              "Paired",
              "Dark2",
              "Accent"
            ),
            selected = "Set3"
          )
        )
      ),
      fluidRow(column(
        width = 12,
        selectizeInput(
          ns("tbCommodity"),
          "Commodity",
          choices = "",
          selected = "",
          multiple = TRUE
        )
      ))
    ),
    box(
      title = "Save trade balance figure",
      solidHeader = TRUE,
      status = "primary",
      width = 12,
      collapsible = TRUE,
      collapsed = TRUE,
      fluidRow(
        column(2,
               numericInput(ns("tbSaveWidth"),
                            "Width",
                            21)),
        column(2,
               numericInput(ns("tbSaveHeight"),
                            "Height",
                            12)),
        column(2,
               selectInput(
                 ns("tbSaveUnits"),
                 "Unit",
                 choices = c("cm", "in", "px"),
                 selected = "cm"
               )),
        column(2,
               numericInput(ns("tbSaveRes"),
                            "Resolution dpi",
                            600)),
        column(
          2,
          downloadButton(
            ns('tbSavePNG'),
            label = "Save PNG plot",
            icon = icon("download"),
            width = "100%"
          )
        ),
        column(
          2,
          downloadButton(
            ns('tbSaveSVG'),
            label = "Save SVG plot",
            icon = icon("download"),
            width = "100%"
          )
        )
      )
    )
  )
}