R/play_audio.R

In mike-decarlo/geekr: geekr: Audible Task Notifications

#' Play wave sound
#'
#' Uses Audio to play a sound effect if available
#' @param fname filename of a .wav sound file
#' @importFrom audio play
#' @importFrom audio load.wave
#' @export
play_audio <- function(fname) {
  sfx <- audio::load.wave(fname)
  audio::play(sfx)
}