43 lines
1.0 KiB
R
43 lines
1.0 KiB
R
|
## Only run examples in interactive R sessions
|
||
|
|
if (interactive()) {
|
||
|
|
|
||
|
|
ui <- fluidPage(
|
||
|
|
checkboxGroupInput("variable", "Variables to show:",
|
||
|
|
c("Cylinders" = "cyl",
|
||
|
|
"Transmission" = "am",
|
||
|
|
"Gears" = "gear")),
|
||
|
|
tableOutput("data")
|
||
|
|
)
|
||
|
|
|
||
|
|
server <- function(input, output, session) {
|
||
|
|
output$data <- renderTable({
|
||
|
|
mtcars[, c("mpg", input$variable), drop = FALSE]
|
||
|
|
}, rownames = TRUE)
|
||
|
|
}
|
||
|
|
|
||
|
|
shinyApp(ui, server)
|
||
|
|
|
||
|
|
ui <- fluidPage(
|
||
|
|
checkboxGroupInput("icons", "Choose icons:",
|
||
|
|
choiceNames =
|
||
|
|
list(icon("calendar"), icon("bed"),
|
||
|
|
icon("cog"), icon("bug")),
|
||
|
|
choiceValues =
|
||
|
|
list("calendar", "bed", "cog", "bug")
|
||
|
|
),
|
||
|
|
textOutput("txt")
|
||
|
|
)
|
||
|
|
|
||
|
|
server <- function(input, output, session) {
|
||
|
|
output$txt <- renderText({
|
||
|
|
icons <- paste(input$icons, collapse = ", ")
|
||
|
|
paste("You chose", icons)
|
||
|
|
})
|
||
|
|
}
|
||
|
|
|
||
|
|
shinyApp(ui, server)
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|