R/experimental.R

In IQSS/IQSSdevtools: Initialize and Compile Packages Complying with IQSS Best Practices for Software Development and Sustainability

## EXPERIMENTAL ##
# checks links asynchronously
# not currently fully functioning
check_links <- function(links) {
    pool <- new_pool()
    good_links_list <- list()
    success <- function(req) {good_links_list <<- c(good_links_list, list(req))}
    for (link in links) {
        curl_fetch_multi(link, done = success, pool = pool)
    }
    multi_run(pool = pool)
    good_links <- ""
    for (result in good_links_list) {
        cat(result$url, result$status, "\n")
        if (result$status == 200) {
            good_links <- c(good_links, result$url)
        }
    }
    if (length(good_links)==1) return(links)
    good_links<-good_links[2:length(good_links)]
    return(setdiff(links,good_links))
}

#' Parse documentation files in parallel
#'
#' @param paths vector of file paths
#'
#' @importFrom parallel mclapply detectCores

multifile_link_parse <- function(paths) {
    # needs additions to track file containing the link to be "done"
    file_links <- mclapply(paths, parse_file, mc.cores = detectCores())
    links <- character(0)
    for (file in file_links) {
        links <- union(links, file)
    }
    return(links)
}