usage metrics dashboard: better refresh button (#133)

* rename refresh button

* add timestamp

* update manifest

* tighten hr spacing

* update manifest checksums

* bump extension version

Author: toph-allen

extensions/usage-metrics-dashboard/app.R

@@ -198,9 +198,17 @@ ui <- function(request) {
 
       tags$hr(),
 
-      # TODO: Possibly remove or hide in a "Troubleshooting" or Advanced
-      # accordion section
-      actionLink("clear_cache", "Clear Cache", icon = icon("refresh")),
+      div(
+        actionLink("clear_cache", "Refresh Data", icon = icon("refresh")),
+        div(
+          textOutput("last_updated"),
+          style = "
+            font-size:0.75rem;
+            color:#6c757d;
+            margin:2px 0 0 0;
+          "
+        )
+      )
     ),
 
     # Main content views ----
@@ -619,16 +627,28 @@ server <- function(input, output, session) {
   }) |>
     bindCache(active_user_guid)
 
-  usage_data_raw <- reactive({
+  usage_data_meta <- reactive({
     req(active_user_role %in% c("administrator", "publisher"))
-    get_usage(
+    dat <- get_usage(
       client,
       from = date_range()$from,
       to = date_range()$to
     )
+    list(
+      data = dat,
+      last_updated = Sys.time()
+    )
   }) |>
     bindCache(active_user_guid, date_range())
 
+  usage_data_raw <- reactive({
+    usage_data_meta()$data
+  })
+
+  usage_last_updated <- reactive({
+    usage_data_meta()$last_updated
+  })
+
   # Multi-content table data ----
 
   # Filter the raw data based on selected scope, app mode and visit merge window
@@ -720,6 +740,11 @@ server <- function(input, output, session) {
     }
   )
 
+  output$last_updated <- renderText({
+    fmt <- "%Y-%m-%d %l:%M:%S %p %Z"
+    paste0("Updated ", format(usage_last_updated(), fmt))
+  })
+
   output$content_usage_table <- renderReactable({
     data <- multi_content_table_data()
 

extensions/usage-metrics-dashboard/manifest.json

@@ -3056,7 +3056,7 @@
   },
   "files": {
     "app.R": {
-      "checksum": "3e1f1e08ecddcac01fd26b112a84dc04"
+      "checksum": "dd69a9e45f5e4e02496de7b6cbb828d8"
     },
     "get_usage.R": {
       "checksum": "ac5b526efed72f1c34786620ca2ddacd"
@@ -3065,7 +3065,7 @@
       "checksum": "2b495c74b5987a2c318bcd80a0c2be8f"
     },
     "www/styles.css": {
-      "checksum": "96b6068bd63e5daf1f938bfb854fd849"
+      "checksum": "7ea30e3cc044a3221877a503b0e1ee7d"
     }
   },
   "users": null,
@@ -3079,7 +3079,7 @@
     "requiredFeatures": [
       "OAuth Integrations"
     ],
-    "version": "1.0.1"
+    "version": "1.0.2"
   },
   "environment": {
     "r": {

extensions/usage-metrics-dashboard/www/styles.css

@@ -57,4 +57,8 @@ a.action-button {
 
 .shiny-spinner-output-container {
   height: 100% !important;
+}
+
+.sidebar hr {
+  margin: 0.25rem 0;
 }