traking users with google firebase authentication on #156

worldbank · Jan 9, 2024 · 8fb3adc · 8fb3adc
1 parent c950959
commit 8fb3adc
Show file tree

Hide file tree

Showing 3 changed files with 66 additions and 22 deletions.
diff --git a/app/global.R b/app/global.R
@@ -22,6 +22,7 @@ library(htmltools)
 library(officer)
 library(rvg)
 library(openxlsx)
+library(firebase)
 
 
 options(dplyr.summarise.inform = FALSE)

diff --git a/app/server.R b/app/server.R
@@ -3,6 +3,26 @@
 server <- function(input, output, session) {
   # Handle inputs ======================================================================
 
+  ## Fisebase ---------------------------------------------------------------
+  f <- FirebaseUI$
+    new()$
+    set_providers(
+      email = TRUE, 
+      google = TRUE
+    )$
+    launch()
+
+  a <- Analytics$
+    new()$
+    launch()
+
+  observeEvent(f$get_signed_in(), {
+    f$req_sign_in()
+
+    a$log_event('notification_received');
+    a$set_user_properties(level = "free")
+  })
+
   ## Hide save inputs button at onset
   shinyjs::hide("save_inputs")
   shinyjs::disable("preset_order")

diff --git a/app/ui.R b/app/ui.R
@@ -9,9 +9,6 @@ $('#threshold').on('shown.bs.select', function() {
   });
 });"
 
-
-
-
 ui <-
   dashboardPage(
 
@@ -38,30 +35,56 @@ ui <-
       status = "info",
       skin = "light",
       elevation = 5,
-
-      sidebarMenu(
-        menuItem("Home", tabName = "home", icon = icon("home")),
-        menuItem("Country benchmarking", tabName = "benchmark", icon = icon("sort-amount-up")),
-        menuItem("Cross-country comparison", tabName = "country", icon = icon("chart-bar")),
-        menuItem("Bivariate correlation", tabName = "scatter", icon = icon("search-dollar")),
-        menuItem("World map", tabName = "world_map", icon = icon("globe-americas")),
-        menuItem("Time trends", tabName = "trends", icon = icon("chart-line")),
-        menuItem("Data", tabName = "data", icon = icon("table")),
-        menuItem("Methodology", tabName = "methodology", icon = icon("book")),
-        menuItem("Publications", tabName = "pubs", icon = icon("list")),
-        menuItem("Terms of use and Disclaimers", tabName = "terms", icon = icon("handshake")),
-        menuItem("FAQ", tabName = "faq", icon = icon("question")),
-        menuItem("Contact Us", 
-                   icon = icon("comments", lib = "font-awesome"),
-                   href = "mailto:[email protected]"),
-        menuItem("Source code", 
-                   icon = icon("github", lib = "font-awesome"),
-                   href = "https://github.com/worldbank/institutional-assessment-dashboard/")
+
+      useFirebase(), # import dependencies
+      firebaseUIContainer(),
+
+      reqSignin(
+        h4("Logged in!"),
+
+        sidebarMenu(
+          menuItem("Home", tabName = "home", icon = icon("home")),
+          menuItem("Country benchmarking", tabName = "benchmark", icon = icon("sort-amount-up")),
+          menuItem("Cross-country comparison", tabName = "country", icon = icon("chart-bar")),
+          menuItem("Bivariate correlation", tabName = "scatter", icon = icon("search-dollar")),
+          menuItem("World map", tabName = "world_map", icon = icon("globe-americas")),
+          menuItem("Time trends", tabName = "trends", icon = icon("chart-line")),
+          menuItem("Data", tabName = "data", icon = icon("table")),
+          menuItem("Methodology", tabName = "methodology", icon = icon("book")),
+          menuItem("Publications", tabName = "pubs", icon = icon("list")),
+          menuItem("Terms of use and Disclaimers", tabName = "terms", icon = icon("handshake")),
+          menuItem("FAQ", tabName = "faq", icon = icon("question")),
+          menuItem("Contact Us", 
+                     icon = icon("comments", lib = "font-awesome"),
+                     href = "mailto:[email protected]"),
+          menuItem("Source code", 
+                     icon = icon("github", lib = "font-awesome"),
+                     href = "https://github.com/worldbank/institutional-assessment-dashboard/")
+        )
+
       )
+
     ),
 
     dashboardBody(
 
+      tags$head(HTML("
+        
+        <!-- Global site tag (gtag.js) - Google Analytics -->
+        <script async src='https://www.googletagmanager.com/gtag/js?id=G-CDFJLHD42K'></script>
+        <script>
+        window.dataLayer = window.dataLayer || [];
+        function gtag(){dataLayer.push(arguments);}
+        gtag('js', new Date());
+        
+        gtag('config', 'G-CDFJLHD42K');
+        
+        </script>
+        
+        "
+
+      )),
+
       ## universal css styles
       tags$style(HTML("