R/get_points.R

In eheinzen/championtrees: Champion Trees National Register

Defines functions get_points get_points.champion_tree

Documented in get_points get_points.champion_tree

#' Extract points
#'
#' @param x An object
#' @param ... Other arguments
#' @name get_points
NULL

#' @rdname get_points
#' @export
get_points <- function(x, ...)
{
  UseMethod("get_points")
}
#' @rdname get_points
#' @export
get_points.champion_tree <- function(x, ...)
{
  x$points
}