R/read_database.R

In foresthayes/collardata: This package is designed to simplify the process of combining GPS collar data from different manufacturers in multiple files into a single common format database.

#' Read latest local database
#'
#' @param data_folder Folder containing database to be read in.
#'
#' @return Copy of target database
#' @export
#'
#' @examples read_database("data/ats")

read_database <- function(data_folder = NA, colClasses = NA){

  # Identify the most recent database file
  database_file <- tail(list.files(here::here(data_folder), pattern = "csv", full.names = T), 1)

  # Read in the latest database file
  database <- read.delim(database_file, sep = ",", colClasses = colClasses)

  # Return the database
  return(database)
}