build-cran-binaries/local/label-removed-cran-packages.R

### Scope: List decomisisoned CRAN packages and updates them in the metadata DB
library(dplyr)
library(bincraft)
archived <- quickcode::archivedPkg() |>
  filter(arch.status == "decom") |>
  pull(name)

# Query all distinct pkgs in the DB
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() |>
  filter(removed == FALSE) |>
  distinct(name) |>
  pull(name)

# Check which pkgs in the DB match with the decomissioned ones
to_process <- pkgs_db[pkgs_db %in% archived]

# for all matches, set 'removed = TRUE'
sapply(to_process, function(.x) {
  DBI::dbExecute(con, "UPDATE single_builds SET removed = 'TRUE' where name = $1",
    params = list(.x)
  )
})