R/summary.recent_obs.R

In jcoliver/lifeR: Identify Sites for Your Bird List

#' Summary of recent_obs object
#'
#' @param object An object of class "recent_obs".
#' 
#' @export
#' 
#' @keywords internal
#' 
#' @return No return value, called to print summary of a \code{recent_obs} 
#' object
summary.recent_obs <- function(object, ...) {
  print(object)
  if (object$query_type == "nearby observations" & !is.null(object$obs)) {
    # if multiple species, print how many species
    num_species <- length(unique(object$obs$sciName))
  }
}