R/card_suits.R

In guiboucher/Games.GB: Games in R

#' Card suit
#'
#' Symbole des cartes
#'
#' @name Card suit
#' @param type "text" : c("Carreau", "Coeur", "Pique", "Trèfle)


#' @rdname card_suit
#' @keywords internal
#' @export
spade <- function(type = "text"){
  if(type == "text"){
    return("Pique")
  }
}

#' @rdname card_suit
#' @keywords internal
#' @export
heart <- function(type = "text"){
  if(type == "text"){
    return("Coeur")
  }
}

#' @rdname card_suit
#' @keywords internal
#' @export
diamond <- function(type = "text"){
  if(type == "text"){
    return("Carreau")
  }
}

#' @rdname card_suit
#' @keywords internal
#' @export
club <- function(type = "text"){
  if(type == "text"){
    return("Trèfle")
  }
}