R/test_fun.R

In agroflavian/GLEIS: What the Package Does (One Line, Title Case)

#' A Test Function
#'
#' This function allows to test my package.
#' @param try Ciao Zoe, sta bene? Defaults to TRUE.
#' @return string of characters
#' @keywords test
#' @export
#' @examples c <- test_function(TRUE), print(c) / c <-test_function(FALSE), print(c)
#' test_fun()
test_fun <- function(try=TRUE){
  if(try==TRUE){
    print("Ciao alles klar? tipp eifach ned FALSE")
  }
  else {
    print("WHY THE HELL YOU TYPE FALSE?!?")
  }
}