A basic miniUI Shiny gadget

basic_miniUI_gadget.R

#' Basic miniUI Gadget Function
#'
#' Single view with button row along the bottom
basic_miniUI_gadget <- function() {
  require(shiny)
  require(miniUI)

  ui <- miniPage(
    gadgetTitleBar("Shiny gadget example"),
    miniContentPanel(
      padding = 0,
      plotOutput("histogram")
    ),
    miniButtonBlock(
      actionButton("reset", "Rerun")
    )
  )

  server <- function(input, output, session) {
    output$histogram <- renderPlot({
      require(ggplot2)
      ggplot(sim_dat(), aes(x)) + geom_histogram()
    })

    sim_dat <- reactiveVal(data.frame(x = rnorm(100)))

    observeEvent(input$reset, {
      sim_dat(data.frame(x = rnorm(100)))
    })

    observeEvent(input$done, {
      stopApp(TRUE)
    })
  }

  runGadget(ui, server, viewer = paneViewer())
}