Doesn't write anything, special inputs created by track_usage are available in server and optionally logs are printed in console.

store_null(console = TRUE)

Arguments

console

Print logs in R console.

Examples

if (interactive()) { library(shiny) library(shinylogs) ui <- fluidPage( tags$h2("Record inputs change"), fluidRow( column( width = 3, selectInput( inputId = "select", label = "Select input", choices = month.name ), numericInput( inputId = "numeric", label = "Numerci input", value = 4, min = 0, max = 20 ), checkboxGroupInput( inputId = "checkboxGroup", label = "Checkbox group input", choices = LETTERS[1:5] ), sliderInput( inputId = "slider", label = "Slider input", min = 0, max = 100, value = 50 ) ), column( width = 9, tags$b("Last input:"), verbatimTextOutput(outputId = "last_input"), tags$b("Last input:"), verbatimTextOutput(outputId = "all_inputs") ) ) ) server <- function(input, output, session) { track_usage( storage_mode = store_null() # dont store on disk ) output$last_input <- renderPrint({ input$.shinylogs_lastInput # last input triggered }) output$all_inputs <- renderPrint({ input$.shinylogs_input # all inputs that have changed }) } shinyApp(ui, server) }