Merge pull request #168 from Appsilon/issue/#164-cannot-access-LogFile

Issue/#164 cannot access log file

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: shiny.telemetry
 Title: 'Shiny' App Usage Telemetry
-Version: 0.2.0.9010
+Version: 0.2.0.9011
 Authors@R: c(
     person("André", "Veríssimo", , "[email protected]", role = c("aut", "cre")),
     person("Kamil", "Żyła", , "[email protected]", role = "aut"),

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

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,