inst/extdata/functions2.R

# functions

#' @export

my_exp <- function(a, b) {
  return(a^b)
}

#' @export

my_exp_broken <- function(a, b) {
  if(is.character(a)) stop("a is character")
  return(a^b)
}
simonpedrobolivar/filecovRunit documentation built on May 28, 2019, 5:41 a.m.