Use osfr to download individual OSF Wikis

osfr-wiki-download.R

library(osfr)
library(purrr)
library(tibble)


# functions ---------------------------------------------------------------

 # id: project GUID
.osf_list_wikis <- function(id) {
  api_path <- sprintf("nodes/%s/wikis", id)
  res <- osfr:::.osf_request("get", path)
  osfr:::process_response(res)
}

# id: wiki GUID
# path: local path where wiki will be downloaded
.osf_download_wikis <- function(id, path) {
  api_path <- sprintf("wikis/%s/content/", id)
  res <- osfr:::.osf_request("get", api_path, disk = path)
  if (res$status_code == 200) return(invisible(TRUE))
  res$raise_for_status()
}


# demo --------------------------------------------------------------------

# project guid
pid <- "ezum7"

# list all wikis associated with the project
wikis <- .osf_node_wikis(pid)

# convert to a data frme
tbl_wikis <- tibble::tibble(
  id = map_chr(wikis$data, purrr::chuck, "id"),
  name = map_chr(wikis$data, purrr::chuck, "attributes", "name"),
  date_modified = as.POSIXct(
    map_dbl(wikis$data, purrr::chuck, "attributes", "date_modified"),
    origin = as.Date("1970-01-01")
  )
)

# download a particular wiki to local file
i <- 1
.osf_download_wikis(tbl_wikis$id[i], paste0(tbl_wikis$name[i], ".md"))