From f7e7df086c80137f3b4d6f5f9d936822db026233 Mon Sep 17 00:00:00 2001
From: pat-s <patrick.schratz@gmail.com>
Date: Sun, 17 Nov 2024 23:35:02 +0100
Subject: [PATCH] feat: add script to manually remove archived cran pkgs

---
 local/removed-from-cran.R | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 local/removed-from-cran.R

diff --git a/local/removed-from-cran.R b/local/removed-from-cran.R
new file mode 100644
index 0000000..8e57581
--- /dev/null
+++ b/local/removed-from-cran.R
@@ -0,0 +1,21 @@
+archived <- quickcode::archivedPkg() |>
+  filter(arch.status == "decom") |>
+  pull(name)
+
+con <- DBI::dbConnect(RPostgres::Postgres(),
+  dbname = "build_metadata", host = "r-binaries.devxy.io",
+  port = 15432, user = "r_binaries", password = Sys.getenv("PGPASS"),
+  sslmode = "require"
+)
+
+pkgs_db <- query_metadata_table() |>
+  distinct(name) |>
+  pull(name)
+
+to_process <- pkgs_db[pkgs_db %in% archived]
+
+sapply(to_process, function(.x) {
+  DBI::dbExecute(con, "UPDATE single_builds SET removed = 'TRUE' where name = $1",
+    params = list(.x)
+  )
+})