mmstat.getLog {HKRbook}

mmstat.getLog

Description

Returns the internal log message as HTML. In a Shiny app the log message are updated every 100 milliseconds

Usage

mmstat.getLog(session)

Arguments

session

session object

Value

HTML code

Examples

# will work only in A Shiny app
if (interactive()) {
  require("shiny")
  ui <- fluidPage(
    titlePanel("getLog example"),
       sidebarLayout(sidebarPanel(
         actionButton("quit", "Quit")),
         mainPanel(textOutput("log"))
   )
 )
#
  server <- function(input, output, session) {
    observeEvent(input$quit, { stopApp() })
    output$log <- renderText({ mmstat.getLog(session) })
  }
#
  shinyApp(ui, server)
}