R/grind.r

In MikeXL/espResso: Fun analysis of caffeine

#' A Grind Function
#'
#' This function allows you to grind your coffee beans, well, in theory
#' @param the bean comes from, default to Costa Rica
#' @keywords bean
#' @export
#' @examples
#' grind()

grind <- function (bean = "Costa Rica") {
  cat(paste("You've got bean from " , bean, ".\n"))
}