diff --git a/app/ui.R b/app/ui.R
index b3c5207..cea8a9f 100644
--- 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
index cb95815..04af4d6 100644
--- 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
new file mode 100644
index 0000000..657025a
--- /dev/null
+++ b/app/www/google-analytics.html
@@ -0,0 +1,9 @@
+
+
+