R/fun.R

In ropenscilabs/tic.covrpage: Dummy package for tic and covrpage example

#' @title FUNCTION_TITLE
#' @description FUNCTION_DESCRIPTION
#' @param x PARAM_DESCRIPTION
#' @param y PARAM_DESCRIPTION
#' @return OUTPUT_DESCRIPTION
#' @details DETAILS
#' @examples
#' \dontrun{
#' if(interactive()){
#'  #EXAMPLE1
#'  }
#' }
#' @rdname fun
#' @export
fun <- function(x, y) {
  if ((x %% 2) == 0) {
    x / y
  } else {
    x + y
  }
}