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%"
)
)
)
)
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.