factorize track session and track as json format

DESCRIPTION

@@ -20,6 +20,7 @@ Imports:
     grDevices,
     htmltools,
     httr,
+    jsonlite,
     leaflet,
     magrittr,
     plotly,

NAMESPACE

@@ -50,7 +50,8 @@ export(run_app)
 export(sld_get_quantile_colors)
 export(sld_get_quantile_metric)
 export(sld_get_style)
-export(tracks)
+export(track_inputs)
+export(track_session)
 export(utile_get_metric_name_value)
 export(utile_get_metric_type)
 export(utile_normalize_string)
@@ -85,6 +86,7 @@ importFrom(htmltools,img)
 importFrom(htmltools,span)
 importFrom(htmltools,tags)
 importFrom(httr,modify_url)
+importFrom(jsonlite,toJSON)
 importFrom(leaflet,WMSTileOptions)
 importFrom(leaflet,addCircleMarkers)
 importFrom(leaflet,addControl)

R/app_server.R

@@ -5,15 +5,12 @@
 #' @import shiny
 #' @importFrom DBI dbDisconnect
 #'
+#'
 #' @noRd
 app_server <- function(input, output, session) {
 
   # 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))
+  track_session(session = session)
 
   # set database connection
   con <- db_con()

R/fct_tracks.R

@@ -1,10 +1,12 @@
-#' Track input user session.
+#' Track input user inputs.
 #'
 #' @param input reactivesValues Shiny input.
 #'
-#' @return message with the list avec the input values tracked.
+#' @importFrom jsonlite toJSON
+#'
+#' @return message with the inputs name and value as json format.
 #' @export
-tracks <- function(input = input){
+track_inputs <- function(input = input){
   inputs_tracked <- c("exploremap_shape_click", "strahler", "metricfilter", "metric_type",
                       "metric", "unit_area", "roe_profile", "profile_metric_type",
                       "profile_metric", "profile_unit_area", "roe_profile",
@@ -16,5 +18,21 @@ tracks <- function(input = input){
       values[[name]] <- input[[name]]
     }
   }
-  return(message(list(values)))
+  return(message(toJSON(list(values))))
+}
+
+#' Track input user session id and datetime.
+#'
+#' @param session reactivesValues Shiny input.
+#'
+#' @importFrom jsonlite toJSON
+#'
+#' @return message with the session info name and value as json format.
+#' @export
+track_session <- function(session = session){
+  session_tracks <- list(
+    session_id = session$token,
+    session_time = format(Sys.time(), "%Y-%m-%d %H:%M:%OS3%z")
+  )
+  message(toJSON(list(session_tracks)))
 }

R/mod_explore.R

@@ -366,7 +366,7 @@ mod_explore_server <- function(id, con){
     observeEvent(input$exploremap_shape_click,{
 
       # track input
-      tracks(input = input)
+      track_inputs(input = input)
 
       #### bassin clicked ####
       if (input$exploremap_shape_click$group == params_map_group()[["bassin"]]){
@@ -558,7 +558,7 @@ mod_explore_server <- function(id, con){
     observeEvent(input$metric_type, {
 
       # track input
-      tracks(input = input)
+      track_inputs(input = input)
 
       if (!is.null(input$metric_type)){
         update_popover("popover_metric_type",
@@ -590,7 +590,7 @@ mod_explore_server <- function(id, con){
     observeEvent(c(input$metric, input$unit_area), ignoreInit = TRUE, {
 
       # track input
-      tracks(input = input)
+      track_inputs(input = input)
 
       # change field if unit_area in percentage
       if (!is.null(input$metric) && input$unit_area == "percent"
@@ -645,7 +645,7 @@ mod_explore_server <- function(id, con){
       if (r_val$profile_display == FALSE){
 
         # track input
-        tracks(input = input)
+        track_inputs(input = input)
 
         if (!is.null(r_val$selected_metric) && !is.null(r_val$axis_click)){
 
@@ -681,7 +681,7 @@ mod_explore_server <- function(id, con){
     observeEvent(input$profile_metric_type, {
 
       # track input
-      tracks(input = input)
+      track_inputs(input = input)
 
       # build profile metric radio button
       r_val$ui_profile_metric = radioButtons(
@@ -716,7 +716,7 @@ mod_explore_server <- function(id, con){
     observeEvent(c(input$profile_metric, input$profile_unit_area), ignoreInit = TRUE, {
 
       # track input
-      tracks(input = input)
+      track_inputs(input = input)
 
       # change field if unit_area in percentage
       if (!is.null(input$profile_metric) && input$profile_unit_area == "percent"
@@ -753,7 +753,7 @@ mod_explore_server <- function(id, con){
     observeEvent(input$remove_profile_axe, {
 
       # track input
-      tracks(input = input)
+      track_inputs(input = input)
 
       plotlyProxy("long_profile") %>%
         plotlyProxyInvoke("deleteTraces", 1)
@@ -773,7 +773,7 @@ mod_explore_server <- function(id, con){
     observeEvent(input$roe_profile, {
 
       # track input
-      tracks(input = input)
+      track_inputs(input = input)
 
       if (input$roe_profile == TRUE){
         if (!is.null(r_val$roe_vertical_line)){
@@ -802,7 +802,7 @@ mod_explore_server <- function(id, con){
     observeEvent(c(input$strahler, input$metricfilter, r_val$ui_strahler_filter), {
 
       # track input
-      tracks(input = input)
+      track_inputs(input = input)
 
       if (is.null(input$metricfilter)){
         # build WMS cql_filter