devxy/build-cran-binaries
Watch
1
0
Fork
You've already forked build-cran-binaries
 0
Code Issues 10 Pull requests Releases Activity

chore: update local/ files

Browse source
This commit is contained in:
Patrick Schratz 2024-12-13 14:34:53 +01:00
commit a78d489aac
Signed by: pat-s
GPG key ID: 3C6318841EF78925
1 changed files with 78 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

15
local/packages-without-any-binary.R
View file

@ -7,16 +7,25 @@ con <- DBI::dbConnect(RPostgres::Postgres(),
sslmode = "require"
)
data <- dbGetQuery(con, "SELECT name,platform,arch FROM single_builds group by name,platform,arch HAVING COUNT(*) = SUM(CASE WHEN error_occurred = 'TRUE' AND removed = 'FALSE' THEN 1 ELSE 0 END);")
cran_pkgs <- tools::CRAN_package_db() |>
filter(`Date/Publication` <= "2024-12-02") |>
pull(Package)
data <- dbGetQuery(con, "SELECT name,platform,arch,removed,error_occurred FROM single_builds;")
pkgs <- data |>
filter(platform == "ubuntu-2204", arch == "arm64") |>
filter(platform == "redhat-8", arch == "arm64") |>
filter(removed == FALSE) |>
filter(error_occurred == FALSE) |>
distinct(name) |>
pull(name)
pkgs = setdiff(cran_pkgs, pkgs)
# Format, remove line breaks, and print as a single line
formatted_pkgs <- gsub('"', "'", capture.output(dput(pkgs[1:300])))
formatted_pkgs <- gsub('"', "'", capture.output(dput(as.character(na.omit(pkgs[1:300])))))
formatted_pkgs_one_line <- paste(formatted_pkgs, collapse = " ")
cat(formatted_pkgs_one_line, "\n", sep = "")
length(pkgs)
clipr::write_clip(formatted_pkgs_one_line)