R/play_file.R

In wolfm4ne/geekr: geekr: Audible Task Notifications

#' Controller to play sound
#'
#' Uses system appropriate player if available
#' @param fname filename of a .wav sound file
#' @export
play_file <- function(fname) {
  if (Sys.info()["sysname"] == "Linux") {
    if (is_wav_fname(fname) && nchar(Sys.which("paplay")) >= 1) {
      geekr::play_paplay(fname)
    } else if (is_wav_fname(fname) && nchar(Sys.which("aplay")) >= 1) {
      geekr::play_aplay(fname)
    } else if (nchar(Sys.which("vlc")) >= 1) {
      geekr::play_vlc(fname)
    } else {
      geekr::play_audio(fname)
    }
  } else {
    geekr::play_audio(fname)
  }
}