R/utils.R

In RTrek/startrekpackage: Have You Ever Wanted to Randomly Throw TNG Phrases in Your Console

# utils
return_random_sentance <- function(name){
    vec <- startrek::TNGvoices$text[startrek::TNGvoices$who == name]
    #len_voices <- seq_along(vec)

    output <- sample(vec,size = 1)
    output
}