Adding shinylogs recording to app

.gitignore

@@ -12,3 +12,6 @@ tests/testthat/*.pdf
 
 # Shiny bookmarks
 shiny_bookmarks/
+
+# Ignore log files
+logs/

DESCRIPTION

@@ -16,6 +16,7 @@ Imports:
     shinyWidgets,
     shinyjs,
     shinyFeedback,
+    shinylogs,
     sever,
     fresh,
     DT,

R/app_server.R

@@ -14,6 +14,12 @@ app_server <- function(input, output, session) {
     session$doBookmark()
   })
 
+  # Enable shinylogs
+  # shinylogs::read_rds_logs("logs")
+  shinylogs::track_usage(what = c("session", "input", "output", "error"),
+                         storage_mode = shinylogs::store_rds(path = "logs/")
+                         )
+
   # fake reload at start
   shiny::observeEvent(input$reload, {
     session$reload()

dev/rm_logs.R

@@ -0,0 +1,20 @@
+# This maintenance script simply deletes all files in the log folder of the app
+# To run simply do Rscript inst/rm_logs.R
+# --- #
+
+library(assertthat)
+
+# Get all log files
+ll <- list.files("logs/", full.names = TRUE)
+ll <- ll[assertthat::has_extension(ll, "rds")]
+
+# No logs found
+if(length(ll)==0){
+  message("No logs found...")
+} else {
+  # Message
+  message("Found a total of ", length(ll), " log files. Deleting them all?")
+  if(utils::askYesNo(msg = "Delete?")){
+    sapply(ll, file.remove)
+  }
+}