41 lines
706 B
R
41 lines
706 B
R
|
|
|
|
library(shiny)
|
|
library(apexcharter)
|
|
|
|
|
|
fluidPage(
|
|
tags$h2("Update an existing chart"),
|
|
fluidRow(
|
|
column(
|
|
width = 4,
|
|
selectizeInput(
|
|
inputId = "year",
|
|
label = "year :",
|
|
choices = c("1999", "2008"),
|
|
selected = "1999",
|
|
multiple = TRUE,
|
|
options = list('plugins' = list('remove_button'))
|
|
),
|
|
sliderInput(
|
|
inputId = "cty",
|
|
label = "cty >= x :",
|
|
min = 9,
|
|
max = 35,
|
|
value = 9
|
|
),
|
|
checkboxInput(
|
|
inputId = "keepallx",
|
|
label = "Keep all x",
|
|
value = FALSE
|
|
)
|
|
),
|
|
column(
|
|
width = 8,
|
|
apexchartOutput(outputId = "chart")
|
|
)
|
|
)
|
|
)
|
|
|
|
|