diff --git a/DESCRIPTION b/DESCRIPTION index d9538b6d..387e2f81 100644 --- a/DESCRIPTION +++ b/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", , "opensource+andre@appsilon.com", role = c("aut", "cre")), person("Kamil", "Żyła", , "kamil@appsilon.com", role = "aut"), diff --git a/NEWS.md b/NEWS.md index 2d7ebaf8..78082b73 100644 --- 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 index aca2a5b8..19fead98 100644 --- 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,