R/loc_listing_count.R

In andrewpita/gibbsCapRecap: Functions for Bayesian Estimation with Capture-Recapture Data

#' Extract Number of participating individuals.
#' 
#' @description Take regionaldata.csv file and get counts for 
#' @description individuals who participated in specific listings.
#' 
#' @param survData csv file in the format of regionaldata.csv.
#' @param survLoc character object with the corresponding location name in regionaldata.csv.
#' @param listing character object with the corresponding listing name in regionaldata.csv
#' 
#' @return a numeric object
#' 
#' @import dplyr
#' @importFrom magrittr %>%
#' 
#' @export


#function for extracting the number of individuals who participated 
#in a given listing in a specific location. Assumes input
#survData is in the same format as the regionaldata.csv file

loc_listing_count = function(survLoc, listing, survData) {
  #survLoc is the location name, listing is the specific name
  #of the listing you want a count of, and survData is the 
  #regionaldata.csv file that contains this information
  
  listingCount = survData %>% 
                      filter(location == survLoc) %>%
                              select(listing) %>%
                                    pull
  
}