osf_download.R

# authenticate using OSF token stored in .Renviron
osfr::osf_auth()

# define download function
download_project <- function(node, path) {
  proj <- osfr::osf_retrieve_node(node)
  files <- osfr::osf_ls_files(proj)
  if(!dir.exists(path)) dir.create(path)
  for(i in 1:nrow(files)) {
    cat("downloading: ", files$name[i], "\n")
    osfr::osf_download(files[i,], file.path(path, files$name[i]))
  }  
}

# the devil and deep blue sea OSF project:
# https://osf.io/5swnm/
download_project(node = "5swnm", path = "~/Desktop/devil")