R/give_name.R

In theoniphotopoulou/iemand: What the Package Does (One Line, Title Case)

#' Title
#'
#' @param sex (character)
#'
#' @return character
#' @export
#'
#' @examples give_name()
#'
give_name <- function(sex = "female"){
  possible_names <- sa_names$first_name[sa_names$sex == sex]
  sample(possible_names, size=1)
}