diff --git a/NEWS.md b/NEWS.md index dde6334..a88c7d6 100644 --- a/NEWS.md +++ b/NEWS.md @@ -2,6 +2,10 @@ - More robust checking of password. +- Do not drop Shinylogs records dir, only eliminate each file when it is processed. This allows for recording of several simultaneous sessions. + +- Do not record Shinylogs events whose label starts with ".clientdata_output_". + - In `launch_shiny()` and `webshot_shiny()`, default width is increased from 780 to 790, otherwise `shiny::sidepanelLayout()`wrap the side panel on the top of the Shiny app. # learnitdown 1.5.4 diff --git a/R/learnitdown_shiny.R b/R/learnitdown_shiny.R index ff04713..26807a9 100644 --- a/R/learnitdown_shiny.R +++ b/R/learnitdown_shiny.R @@ -135,6 +135,10 @@ read_shinylogs <- function(file, version = "0", return(res) } + # Filter out .clientdata_output_... labels we don't want to keep + keep_event <- substring(res$label, 1L, 19L) != ".clientdata_output_" + res <- res[keep_event, ] + # Rework submit and quit events is_submit <- res$label == "learnitdown_submit_" if (any(is_submit)) {