## 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.