R/product_info.R

In brclimr: Fetch Zonal Statistics of Weather Indicators for Brazilian Municipalities

#' Print product information, indicators acronyms and available statistics
#'
#' @param product Zonal indicator product. Options are: `brdwgd`, `terraclimate`.
#'
#' @return Printed list tree on the console.
#' @export
#'
#' @examples
#' product_info("terraclimate")
product_info <- function(product){
  # Argument check
  checkmate::assert_choice(x = product, choices = c("brdwgd", "terraclimate"))

  if(product == "brdwgd"){
    lobstr::tree(brclimr::brdwgd_data)
  } else if(product == "terraclimate"){
    lobstr::tree(brclimr::terraclimate_data)
  }
}