R/importCNNAPbirds.R

In NCRN/NCRNbirds: Data analysis and visualization for NPS I&M bird monitoring.

#' @include NCRNbirds_Class_def.R
#' 
#' @title importCROWbirds
#' 
#' @importFrom lubridate year mdy
#' @importFrom readr read_csv
#' 
#' @description  This function imports data from the standard CROW .csv files and saves it as \code{NCRNbirds} objects. 
#' The required .csv files are: Points, Visits, FieldData CROWbands, CROWintervals, BirdSpecies, and BirdGuildAssignments.
#' 
#' @param Dir  The directory where the data is found. You should omit the trailing slash ("/") in the directory name.
#' 
#' @return Returns 1 \code{NCRNbirds} object.
#' 
#' @export


importCROWbirds<-function(Dir){
  
  
  InBands<-read_csv(paste(Dir,"CROWbands.csv", sep="/"))
  InIntervals<-read_csv(paste(Dir,"CROWintervals.csv", sep="/"))
  
  InPoints<-read_csv(paste(Dir,"Points.csv", sep="/"))
  
  InVisits<-read_csv(paste(Dir,"Visits.csv",sep="/"))
  InVisits$EventDate<-mdy(InVisits$EventDate)
  InVisits$Year<-year(InVisits$EventDate)
  
  
  InFieldData<-read_csv(paste(Dir,"FieldData.csv", sep="/"))
  InFieldData$EventDate<-mdy(InFieldData$EventDate)
  InFieldData$Year<-year(InFieldData$EventDate)
  
  InSpecies<-read_csv(paste(Dir,"BirdSpecies.csv", sep="/"))  
  InGuilds<-read_csv(paste(Dir,"BirdGuildAssignments.csv", sep="/"))
  
  
  CROW<-new("NCRNbirds",
             ParkCode="CROW",
             ShortName="Crow's Nest",
             LongName="Crow's Nest Natural Area Preserve", 
             Network="CROW", 
             
             VisitNumber=4,
             Bands=InBands,
             Intervals=InIntervals,
             
             Points=InPoints[InPoints$Admin_Unit_Code=="CROW",], 
             Visits=InVisits[InVisits$Admin_Unit_Code=="CROW",],
             Birds=InFieldData[InFieldData$Admin_Unit_Code=="CROW",],
             Species=InSpecies,
             Guilds=InGuilds
  ) 
  
  
  return(c(CROW))
}