R/utils-registry.R

In ropensci-org/rotemplate: pkgdown template and utilities for rOpenSci docs

find_review_number <- function(pkgname) {

  if (!curl::has_internet()) {
    message("No internet connection, can't look up the package registry for software review info.")
    return(NULL)
  }

  registry <- read_onboarded()
  pkg_entry <- Filter(function(x){x$pkgname == pkgname }, registry)
  if(length(pkg_entry)){
    pkg_entry[[1]][["iss_no"]]
  }
}

#' @importFrom memoise memoise
read_onboarded <- memoise::memoise(function() {
  jsonlite::read_json(
    "https://badges.ropensci.org/json/onboarded.json"
  )
})