#1839 dummy function created

R/my_first_fcn.R

@@ -0,0 +1,27 @@
+#' Derive Extension Example
+#'
+#' Says hello admiral
+#'
+#' @param hw TRUE or FALSE
+#'
+#' @author Open Source
+#'
+#' @details Something Something
+#'
+#' @return Happy Message
+#'
+#' @family der_adxx
+#'
+#' @keywords der_adxx
+#'
+#' @export
+#'
+#' @examples
+#' hello_admiral(hw = FALSE)
+hello_admiral <- function(hw = TRUE) {
+ if (hw) {
+ message("Welcome to the admiral family!")
+ } else {
+ message("Welcome to the admiral family!")
+ }
+}

tests/testthat/test-my_first_fcn.R

@@ -0,0 +1,13 @@
+test_that("hello admiral greets without hw", {
+ expect_message(
+ hello_admiral(),
+ "^Welcome to the admiral family!\\n"
+ )
+})
+
+test_that("hello admiral greets with hw", {
+ expect_message(
+ hello_admiral(TRUE),
+ "^Welcome to the admiral family!\\n"
+ )
+})