Filter out Shinylogs event .clientdata_output_...

learnitr · Sep 20, 2023 · 0825e8e · 0825e8e
1 parent 20b5ceb
commit 0825e8e
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git 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
@@ -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)) {