update local/ scripts
This commit is contained in:
parent
fcf2b3fed2
commit
2588b2512f
1 changed files with 130 additions and 106 deletions
|
|
@ -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)
|
||||
)
|
||||
})
|
||||
Loading…
Reference in a new issue