library(shiny)
ui <- fluidPage(
column(6,
selectInput(inputId = "input1",
label = "input1",
choices = NULL,
selected = NULL,
multiple = FALSE
),
verbatimTextOutput("output1")
),
column(6,
selectInput(inputId = "input2",
label = "input2",
choices = NULL,
selected = NULL,
multiple = TRUE
),
verbatimTextOutput("output2")
)
)
server <- shinyServer(function(input, output, session){
output$output1 <- renderPrint(
list(choices = input$input1,
is.null = is.null(input$input1),
length = length(input$input1))
)
output$output2 <- renderPrint(
list(choices = input$input2,
is.null = is.null(input$input2),
length = length(input$input2))
)
})
shinyApp(ui, server)