| mmstat.getLog | R Documentation |
Returns the internal log message as HTML. In a Shiny app the log message are updated every 100 milliseconds
mmstat.getLog(session)
session |
session object |
HTML code
# 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.