tests/testthat/scripts/greet.R

In zephyr: Structured Messages and Options

#' Greet someone
#' @description
#' Test function for easy integration testing of how to a zephyr_option
#'
#' @param name Who to greet
#' @inheritParams testpkg-options-params
#' @examples
#' greet("Bob")
#' @export
greet <- function(
    name,
    greeting = zephyr::get_option("greeting", .envir = "testpkg")) {

  zephyr::msg_info(paste(greeting, name))
  return(invisible(name))
}

zephyr::create_option(
  name = "greeting",
  default = "hello"
)