inst/examples/02_navbars/server.R

In johndharrison/shinyGWorks: A wrapper for GroundWorksCSS2

library(shiny)
library(shinyGWorks)

shinyServer(function(input, output) {
  output$plot <- renderPlot({ hist(runif(input$n)) })
  
  output$test <- renderUI({
    gwcolumn(2, 3
             , plotOutput('plot')
             , style = "background-color:green;", class = paste("left-one padded", input$anim,"animated"))
    
  })
}
)