Example code for downloading baad csv files and loading them in R

load_baad.R

# first define a function that downloads and loads baad from 
# Ecological archives
load_baad <- function(filename = "downloads/baad_data.zip") {
  
  path <- dirname(filename)

  # download
  if(!file.exists(filename)){
    dir.create(path, showWarnings = FALSE, recursive = TRUE)
    downloader::download("http://www.esapubs.org/archive/ecol/E096/128/baad_data.zip",
                        filename, mode="wb")
  }

  # unzip
  if(!file.exists(file.path(path, "baad_data", "baad_data.csv"))) {
    unzip(filename, exdir=path)
  }

  # load files - first csv then bibtex
  csv_files <- c("data","dictionary","metadata","contacts","methods","references")
  baad <- lapply(file.path(path, "baad_data", sprintf("baad_%s.csv", csv_files)),
                  read.csv, stringsAsFactors =FALSE)
  names(baad) <- csv_files
  baad[["bib"]] <- bibtex::read.bib(file.path(path, "baad_data", "baad.bib"))
  baad
  }

use.R

# then use function to load baad
baad <- load_baad()