update local/ scripts

local/packages-without-any-binary.R

@@ -0,0 +1,22 @@
+### Lists packages without any successful binaries, i.e. pkgs for which all builds errored (per platform & arch)
+library(DBI)
+library(dplyr)
+con <- DBI::dbConnect(RPostgres::Postgres(),
+  dbname = "build_metadata", host = "r-binaries.devxy.io",
+  port = 15432, user = "r_binaries", password = Sys.getenv("PGPASS"),
+  sslmode = "require"
+)
+
+data <- dbGetQuery(con, "SELECT name,platform,arch FROM single_builds group by name,platform,arch HAVING COUNT(*) = SUM(CASE WHEN error_occurred = 'TRUE' AND removed = 'FALSE' THEN 1 ELSE 0 END);")
+
+pkgs <- data |>
+  filter(platform == "ubuntu-2204", arch == "arm64") |>
+  pull(name)
+
+# Format, remove line breaks, and print as a single line
+formatted_pkgs <- gsub('"', "'", capture.output(dput(pkgs[1:300])))
+formatted_pkgs_one_line <- paste(formatted_pkgs, collapse = " ")
+
+cat(formatted_pkgs_one_line, "\n", sep = "")
+
+clipr::write_clip(formatted_pkgs_one_line)