R/loadBirdFeathers.R

In TrashBirdEcology/bbsRDM: Calculate regime detection metrics using bird communities

# loadBirdFeathers #########################################################
#' @title Load the BBS data feathers into R.
#' @param newDir Where the BBS feathers are saved.
#' @param filename Name of the feather filename (e.g., 'arizona.zip' or 'arizona'). This function will replace .zip with .feather when necessary.
#' @export loadBirdFeathers

loadBirdFeathers <- function(newDir, filename) {

        # Create the new filename as .feather
    filename = gsub(".zip" , ".feather", filename)


    feather <-read_feather(path = paste0(newDir, filename))

    return(feather)
}