R/cheer.R

In jeff-goldsmith/cheer: Mat talk!

#' cheer
#'
#' @return
#' @export
#'
#' @importFrom audio play
#'
#' @examples
#'
#' cheer()
cheer = function() {

  sound =
    sound_df[sample(nrow(sound_df), 1), ]

  audio::play(sound$audio[[1]])
  cat(sound$segment_text)

}