## Not run:
# #in ui.R
# shinyUI(bootstrapPage(#'
# gridster(tile.width = 200, tile.height = 200,
# gridsterItem(col = 1, row = 1, size.x = 1, size.y = 1,
# gaugeOutput("myGauge", "150px", "150px")
# ),
# gridsterItem(col = 2, row = 1, size.x = 1, size.y = 1,
# textOutput("myText")
# ),
# gridsterItem(col = 1, row = 2, size.x = 2, size.y = 1,
# plotOutput("myPlot", height = 200)
# )
# )
# )
#
# #The corresponding server.R
# shinyServer(function(input, output, session) {
# output$myGauge <- reactive({
# abs(rnorm(1) * 100)
# })
# }
# ## End(Not run)
Run the code above in your browser using DataLab