Rotating cards with Bootstrap
library(shiny)
library(flipCards)
shinyApp(
ui = fluidPage(
flipCard(
front = tagList(
numericInput("n", "n", 1),
plotOutput("plot")
),
flip_cover = flipCover("https://image.flaticon.com/icons/svg/186/186236.svg"),
flip_user = flipUser("https://image.flaticon.com/icons/svg/145/145867.svg"),
front_footer = "I am the front footer",
back = tagList(
checkboxGroupInput(
inline = TRUE,
"variable",
"Variables to show:",
c("Cylinders" = "cyl",
"Transmission" = "am",
"Gears" = "gear")
),
tableOutput("data")
),
back_footer = "This is the back footer"
)
),
server = function(input, output) {
output$plot <- renderPlot( plot(head(cars, input$n)) )
output$data <- renderTable({
mtcars[, c("mpg", input$variable), drop = FALSE]
}, rownames = TRUE)
}
)