if (FALSE) { # interactive()
library(shiny)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
# Create a filterInput() inside a shiny app:
filterInput(
x = letters,
inputId = "letter",
label = "Pick a letter:"
)
),
mainPanel(
textOutput("selected_letter")
)
)
)
server <- function(input, output, session) {
output$selected_letter <- renderText({
paste("You selected:", input$letter)
})
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab