test

victor-navarro · Mar 13, 2024 · ccdf0e6 · ccdf0e6
1 parent 626d155
commit ccdf0e6
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 8 deletions.
diff --git a/R/launch_app.R b/R/launch_app.R
@@ -7,9 +7,7 @@ launch_app <- function(
     "resources",
     system.file("resources", package = "calmr.app")
   )
-  ui <- calmr_ui(
-    analytics_file = NULL
-  )
+  ui <- calmr_ui()
   server <- calmr_server()
   shiny::runApp(list(ui = ui, server = server),
     display.mode = "normal", launch.browser = browser

diff --git a/R/ui.R b/R/ui.R
@@ -2,10 +2,11 @@
 #' @param analytics_file A path to google analytics.
 #' Default is NULL, in which case, no analytics are pushed.
 #' @export
-calmr_ui <- function(
-    analytics_file = "inst/resources/google_analytics.html") {
-  if (!is.null(analytics_file)) {
-    analytics <- htmltools::includeHTML(analytics_file)
+calmr_ui <- function(use_analytics = FALSE) {
+  if (use_analytics) {
+    analytics <- htmltools::includeHTML(
+      "inst/resources/google_analytics.html"
+    )
   } else {
     analytics <- htmltools::HTML("")
   }

diff --git a/man/calmr_ui.Rd b/man/calmr_ui.Rd