Do not scrape Windows-only packages

Fixes r-universe-org/help#346
r-universe-org · Jan 22, 2024 · f70f7fa · f70f7fa
1 parent b5ac962
commit f70f7fa
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/R/cran.R b/R/cran.R
@@ -9,6 +9,12 @@ cran_registry <- function(){
   on.exit(unlink(tmp))
   curl::curl_download('https://cloud.r-project.org/web/packages/packages.rds', destfile = tmp)
   packages <- as.data.frame(readRDS(tmp), stringsAsFactors = FALSE)
+  winonly <- which(packages$OS_type == 'windows')
+  if(length(winonly)){
+    # Do not include Windows-only packages because they are trouble on our Linux servers
+    packages <- packages[-winonly,]
+  }
+
   # CRAN ships two versions of recommended packages: the 'base' and 'cran' version
   packages <- packages[!duplicated(packages$Package),]
   packages$Git <- find_git_url(packages)