R/cedi.R

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

#' A classical-CEDI Function
#'
#' This function allows to test my package.
#' @param try  Defaults to TRUE.
#' @return string of characters
#' @keywords test
#' @export
#' @examples c <- test_function(TRUE), print(c) / c <-test_function(FALSE), print(c)
#' test_function()
cedi <- function(try=TRUE){
  if(try==TRUE){
    print("eh ciao, alles klar? hesch gwüsst.. FALSE gebet nur chranki Sieche ide funktion ii..?")
  }
  else {
    print("Du bisch doch en chranke Siech alte! Efach FALSE schriibe, weisch was FALSE isch?")
  }
}