From c3fe535aabd4fccb5c1b943f79cfd01b0b0f34bc Mon Sep 17 00:00:00 2001
From: pat-s <patrick.schratz@gmail.com>
Date: Mon, 18 Nov 2024 00:30:26 +0100
Subject: [PATCH] feat: add panel showing pkgs with missing binaries

---
 shiny/app.R | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/shiny/app.R b/shiny/app.R
index 8f83f7a..d4c4e8c 100644
--- a/shiny/app.R
+++ b/shiny/app.R
@@ -77,6 +77,13 @@ ui <- page_navbar(
       )
     )
   ),
+  nav_panel(
+    "Packages without binaries",
+    card(
+      full_screen = TRUE,
+      DTOutput("pkgs_missing")
+    )
+  ),
   sidebar = sidebar(
     conditionalPanel(
       "input.nav === 'Metadata Query'",
@@ -149,6 +156,15 @@ server <- function(input, output, session) {
     datatable(df)
   })
 
+  output$pkgs_missing <- renderDT({
+    query <- paste0("SELECT name,platform,arch FROM single_builds group by name,platform,arch HAVING COUNT(*) = SUM(CASE WHEN error_occurred = 'TRUE' THEN 1 ELSE 0 END);")
+
+    df <- dbGetQuery(con, query)
+    df <- df[order(df$name), ]
+    colnames(df) <- c("Name", "Platform", "Architecture")
+    datatable(df, rownames = FALSE)
+  })
+
   cachedData <- reactiveVal(NULL)
   total_pkgs <- length(tools::CRAN_package_db()$Package)