feat: add panel showing pkgs with missing binaries

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)