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 @@ + + +