Remaining rwinlib ucrt updates #219

jeroen · 2021-07-24T10:38:50Z

cran2git <- read.csv('https://r-universe-org.github.io/cran-to-git/crantogit.csv')
txt <- readLines('https://www.r-project.org/nosvn/winutf8/ucrt3/patches/CRAN/')
pt <- '.*href="(.*).diff".*'
txt <- txt[grepl(pt, txt)]
pkgs <- sub(pt, '\\1', txt)

test_for_rwinlib <- function(pkg){
  has_rwinlib <- url_exists(sprintf('https://raw.githubusercontent.com/cran/%s/master/tools/winlibs.R', pkg))
  has_ucrt <- url_exists(sprintf('https://raw.githubusercontent.com/cran/%s/master/src/Makevars.ucrt', pkg))
  if(!has_ucrt){
    giturl <- cran2git$url[cran2git$package == pkg]
    if(length(giturl)){
      base <- sub("https://github.com/", "", giturl)
      has_ucrt <- url_exists(sprintf('https://raw.githubusercontent.com/%s/master/src/Makevars.ucrt', base))
    }
  }
  return(has_rwinlib && !has_ucrt)
}

url_exists <- function(url){
  req <- curl::curl_fetch_memory(url)
  return(req$status == 200)
}

todo <- Filter(test_for_rwinlib, pkgs)

jeroen closed this as completed Sep 10, 2021

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Remaining rwinlib ucrt updates #219

Remaining rwinlib ucrt updates #219

jeroen commented Jul 24, 2021 •

edited

Loading

Remaining rwinlib ucrt updates #219

Remaining rwinlib ucrt updates #219

Comments

jeroen commented Jul 24, 2021 • edited Loading

jeroen commented Jul 24, 2021 •

edited

Loading