iris-formattable

iris-formattable.R

library(shiny)
library(formattable)

data <- iris
species <- levels(data$Species)

ui <- shinyUI(fluidPage(
  titlePanel("Old Faithful Geyser Data"),
  sidebarPanel(checkboxGroupInput("species", label = "species", choices = species,
    selected = species),
    checkboxGroupInput("columns", "columns", choices = colnames(data),
      selected = colnames(data))),
  mainPanel(formattableOutput("formattable_test"))
))

server <- shinyServer(function(input, output) {
  output$formattable_test <- renderFormattable({
    
    formattable(data[data$Species %in% input$species, input$columns], 
      list(Sepal.Length = color_tile("white", "lightpink"),
        Sepal.Width = color_tile("white", "lightgreen"),
        Petal.Length = color_tile("white", "lightpink"),
        Petal.Width = color_tile("white", "lightgreen")))
  })
})

shinyApp(ui = ui, server = server)