1839 dummy function

R/my_first_fcn.R

@@ -0,0 +1,23 @@
+#' 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!")
+  }
+}

R/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"
+  )
+})