add g analytics fix FredHutch#79

getwilds · Mar 7, 2024 · 0247d49 · 0247d49
1 parent 384d91b
commit 0247d49
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 0 deletions.
diff --git a/app/ui.R b/app/ui.R
@@ -43,6 +43,7 @@ ui <- dashboardPage(
     rclipboard::rclipboardSetup(),
     enter_to_click,
     tooltip_style,
+    google_analytics,
     tabItems(
       tab_welcome,
       tab_servers,

diff --git a/app/ui_components.R b/app/ui_components.R
@@ -53,6 +53,8 @@ tooltip_style <- tags$style(
 
 enter_to_click <- tags$script(src = "js/keyup.js")
 
+google_analytics <- tags$head(includeHTML(path = "www/google-analytics.html"))
+
 table_footer <- function(timezone = TRUE, copy = TRUE) {
   tz <- if (timezone) "Dates are in Pacific time zone" else ""
   cp <- ""

diff --git a/app/www/google-analytics.html b/app/www/google-analytics.html
@@ -0,0 +1,9 @@
+<!-- Google tag (gtag.js) -->
+<script async src="https://www.googletagmanager.com/gtag/js?id=G-R8GYMTMNX1"></script>
+<script>
+  window.dataLayer = window.dataLayer || [];
+  function gtag(){dataLayer.push(arguments);}
+  gtag('js', new Date());
+
+  gtag('config', 'G-R8GYMTMNX1');
+</script>