R/app_server.R

In aftonsteps/scoobymonsters: Scooby Monsters

#' The application server-side
#'
#' @param input,output,session Internal parameters for {shiny}.
#'     DO NOT REMOVE.
#' @import shiny
#' @noRd
app_server <- function( input, output, session ) {
  # List the first level callModules here
  monster <-
    eventReactive(input$regen_monster, {
    return(gen_monster())
  }, ignoreNULL = FALSE)

  output$monster <- renderText(monster())
}