28 lines
836 B
R
28 lines
836 B
R
### Scope: List decomisisoned CRAN packages and updates them in the metadata DB
|
|
library(dplyr)
|
|
library(bincraftR)
|
|
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)
|
|
)
|
|
})
|