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

add range arg to list pkgs without binaries

Browse source
This commit is contained in:
Patrick Schratz 2024-11-20 20:19:28 +01:00
commit 7833c101c2
Signed by: pat-s
GPG key ID: 3C6318841EF78925
1 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

16
local/packages-without-binaries.R
View file

@ -71,24 +71,26 @@ df_summary <- df_missing_pkgs %>%
count() count()
# Extract and copy missing package names for each architecture and ID combination # Extract and copy missing package names for each architecture and ID combination
extract_and_copy_pkgs <- function(df, arch, id, clip = FALSE) { extract_and_copy_pkgs <- function(df, arch, range = 300, id, clip = FALSE) {
pkgs <- df %>% pkgs <- df %>%
filter(arch == arch, ID == id) %>% filter(arch == arch, ID == id) %>%
pull(pkg_name) pull(pkg_name)
# Print and copy to clipboard if needed # 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(pkgs[1:range])))
cat(formatted_pkgs, "\n", sep = "") formatted_pkgs_one_line <- paste(formatted_pkgs, collapse = " ")
cat(formatted_pkgs_one_line, "\n", sep = "")
if (clip) { if (clip) {
clipr::write_clip(formatted_pkgs) clipr::write_clip(formatted_pkgs_one_line)
} }
return(pkgs) return(pkgs)
} }
# Usage for different architecture and ID combinations # Usage for different architecture and ID combinations
pkgs_missing_amd64_rhel8 <- extract_and_copy_pkgs(df_missing_pkgs, "amd64", "rhel8", clip = TRUE) pkgs_missing_amd64_rhel8 <- extract_and_copy_pkgs(df_missing_pkgs, "amd64", "rhel8", range = 20, clip = TRUE)
pkgs_missing_amd64_rhel9 <- extract_and_copy_pkgs(df_missing_pkgs, "amd64", "rhel9", clip = TRUE) pkgs_missing_amd64_rhel9 <- extract_and_copy_pkgs(df_missing_pkgs, "amd64", "rhel9", clip = TRUE)
pkgs_missing_amd64_jammy <- extract_and_copy_pkgs(df_missing_pkgs, "amd64", "jammy", clip = TRUE) pkgs_missing_amd64_jammy <- extract_and_copy_pkgs(df_missing_pkgs, "amd64", "jammy", clip = TRUE)
pkgs_missing_amd64_noble <- extract_and_copy_pkgs(df_missing_pkgs, "amd64", "noble", clip = TRUE) pkgs_missing_amd64_noble <- extract_and_copy_pkgs(df_missing_pkgs, "amd64", "noble", clip = TRUE)