194 feature support multiple application in analytics app

.Rbuildignore

@@ -16,3 +16,4 @@ cran-comments.md
 CRAN-SUBMISSION
 ^docs$
 ^CRAN-SUBMISSION$
+.devcontainer

.devcontainer/devcontainer.json

@@ -0,0 +1,44 @@
+{
+  "image": "mcr.microsoft.com/devcontainers/base:ubuntu",
+  "features": {
+    "ghcr.io/rocker-org/devcontainer-features/r-rig:latest": {
+      "version": "release",
+      "vscodeRSupport": "languageserver",
+      "installRadian": true,
+      "installDevTools": true
+    },
+    "ghcr.io/rocker-org/devcontainer-features/apt-packages:1": {
+      "packages": "libpq-dev"
+    },
+    "ghcr.io/rocker-org/devcontainer-features/r-dependent-packages:0": {},
+    "ghcr.io/rocker-org/devcontainer-features/rstudio-server:0": {
+      "version": "daily"
+    },
+    "ghcr.io/devcontainers/features/docker-in-docker:2": {}
+  },
+  "forwardPorts": [
+    8787
+  ],
+  "portsAttributes": {
+    "8787": {
+      "label": "RStudio IDE"
+    }
+  },
+  "remoteEnv": {
+    "PKG_SYSREQS": "true",
+    "RENV_CONFIG_PAK_ENABLED": "TRUE"
+  },
+  "customizations": {
+    "vscode": {
+      "extensions": [
+        "REditorSupport.r",
+        "github.copilot"
+      ],
+      "settings": {
+        "r.rterm.linux": "/usr/local/bin/radian",
+        "git.confirmSync": false,
+        "workbench.settings.editor": "json"
+      }
+    }
+  }
+}

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: shiny.telemetry
 Title: 'Shiny' App Usage Telemetry
-Version: 0.3.1
+Version: 0.3.1.9001
 Authors@R: c(
     person("André", "Veríssimo", , "[email protected]", role = c("aut", "cre")),
     person("Kamil", "Żyła", , "[email protected]", role = "aut"),

NEWS.md

@@ -1,3 +1,9 @@
+# shiny.telemetry 0.3.1.9001
+
+### New Features
+
+- Added a dropdown to the `analytics_app()` to switch between applications.
+
 # shiny.telemetry 0.3.1
 
 ### New Features

R/analytics-app.R

@@ -65,6 +65,13 @@ analytics_ui <- function() {
             "download_data", "Download", style = "margin-left: 2em;"
           )
         )
+      ),
+      semantic.dashboard::menuItem(
+        shiny.semantic::selectInput(
+          inputId = "app_name",
+          label = shiny::tags$label("Application name", shiny.semantic::icon("laptop")),
+          choices = character()
+        )
       )
     )
   )

R/prepare-admin-panel.R

@@ -168,14 +168,30 @@ prepare_admin_panel_components <- function(
 
   hour_levels <- c("12am", paste0(1:11, "am"), "12pm", paste0(1:11, "pm"))
 
-  log_data <- shiny::reactive({
+  full_log_data <- shiny::reactive({
     shiny::req(input$date_from, input$date_to)
 
     data_storage$read_event_data(
       as.Date(input$date_from), as.Date(input$date_to)
     )
   })
 
+  shiny::observeEvent(full_log_data(), {
+    applications <- sort(unique(full_log_data()$app_name)) %||% character(0L)
+    shiny.semantic::update_dropdown_input(
+      session = session,
+      input_id = "app_name",
+      choices = applications,
+      value = applications[1]
+    )
+  })
+
+  log_data <- shiny::reactive({
+    shiny::req(input$app_name)
+    full_log_data() %>%
+      dplyr::filter(.data$app_name == input$app_name)
+  })
+
   is_log_empty <- shiny::reactive(nrow(shiny::req(log_data())) == 0)
 
   output$filters <- shiny::renderUI(date_filters())

inst/WORDLIST

@@ -20,3 +20,4 @@ replicaSet
 scalable
 ssl
 tabset
+dropdown