Merge branch 'main' into issue/#169-incorrect-count-anon-users

Appsilon · Apr 26, 2024 · de7df57 · de7df57
2 parents 64affb8 + 1012e69
commit de7df57
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/NEWS.md b/NEWS.md
@@ -13,6 +13,10 @@
 - Improves SQL injection safeguards via `glue::glue_sql` to generated SQL queries (#34).
 - Show proper error message when no telemetry data is available (#177).
 
+### Bug Fixes
+
+- Fixed Analytics app not being able to access data by Instrumentation app (#164).
+
 # shiny.telemetry 0.2.0
 
 ### New Features

diff --git a/inst/examples/app/analytics/app.R b/inst/examples/app/analytics/app.R
@@ -17,8 +17,11 @@ library(DT)
 library(shiny.telemetry)
 
 # Default storage backend using LogFile
+log_file_path <- file.path("..", "instrumentation", "user_stats.txt")
+if (!dir.exists(dirname(log_file_path))) log_file_path <- "user_stats.txt"
+
 data_storage <- DataStorageLogFile$new(
-  log_file_path = file.path(getwd(), "user_stats.txt")
+  log_file_path = log_file_path
 )
 
 # This sample application includes a configuration for RSConnect deployments,