add session tracking

EVS-GIS · Feb 14, 2024 · c9175a4 · c9175a4
1 parent 696938c
commit c9175a4
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 10 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -28,7 +28,6 @@ Imports:
     shiny (>= 1.7.4.1),
     shinycssloaders,
     shinyjs,
-    shinylogs,
     stats,
     utils
 Suggests: 

diff --git a/NAMESPACE b/NAMESPACE
@@ -134,8 +134,6 @@ importFrom(shinycssloaders,withSpinner)
 importFrom(shinyjs,onclick)
 importFrom(shinyjs,runjs)
 importFrom(shinyjs,useShinyjs)
-importFrom(shinylogs,store_null)
-importFrom(shinylogs,track_usage)
 importFrom(stats,setNames)
 importFrom(utils,head)
 importFrom(utils,tail)
diff --git a/R/app_server.R b/R/app_server.R
@@ -4,17 +4,16 @@
 #'     DO NOT REMOVE.
 #' @import shiny
 #' @importFrom DBI dbDisconnect
-#' @importFrom shinylogs track_usage store_null
 #'
 #' @noRd
 app_server <- function(input, output, session) {
 
-  shinylogs::track_usage(storage_mode = shinylogs::store_null(),
-                         what = "session")
-
-  # observe({
-  #   tracks(input = input)
-  # })
+  # track session
+  session_tracks <- list(
+    session_id = session$token,
+    session_time = format(Sys.time(), "%Y-%m-%d %H:%M:%OS3%z")
+  )
+  message(list(session_tracks))
 
   # set database connection
   con <- db_con()