R/give_name.R

In AnriSmith/iemand: Package introducing you to packages

#' function with data
#'
#' @param sex female or male
#'
#' @return returns an assigned name given gender (name)
#' @export
#'
give_name <- function(sex = "female")
{
  possible_names <- sa_names$first_name[sa_names$sex == sex]
  sample(possible_names, size = 1)
}