R/playWave.R

Defines functions playWave

playWave <- function(waveFile) {
  if (length(waveFile) != 1)
    return(invisible())
  if (tools::file_ext(waveFile) != "wav")
    return(invisible())

  wFile <- system.file(c("extdata", "inst/extdata"), waveFile, package = "godmode")
  wFile <- wFile[wFile != ""][1]
  if (!file.exists(wFile))
    return(invisible())
  audio::play.audioSample(audio::load.wave(wFile))
  invisible()
}
miraisolutions/godmode documentation built on Oct. 15, 2023, 8:59 p.m.