tests/testthat/Testbox_attached_modules_functions/app/modules/module.R

In jimhester/covr: Test Coverage for Packages

#' an example function
#'
#' @export
a <- function(x) {
  if (x <= 1) {
    1
  } else {
    2
  }
}

#' @export
b <- function(x) {
  return(x * 2)
}

private_function <- function(x) {
  x ^ 2
}