R/give_name.R

In FCervantes/iemand: Random people

#' Title
#'
#' @param sex
#'
#' @return
#' @export
#'
#' @examples
give_name <- function(sex = "female"){

    possible_names <- sa_names$first_name[sa_names$sex == sex]
    sample(possible_names, size = 1)

}