update local/ scripts

This commit is contained in:
Patrick Schratz 2024-11-25 10:04:23 +01:00
commit 2588b2512f
Signed by: pat-s
GPG key ID: 3C6318841EF78925

View file

@ -1,21 +0,0 @@
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)
)
})