Play midi file

Transform the midi file to fileext format and provide a play button for html documents.

Usage

player(audiofile, fileext = "wav")

Arguments

audiofile

audiofile

fileext

file extension

Value

html tag of a playbutton

Examples

if (FALSE) {
midifile <- system.file("extdata", "test_midi_file.mid", package = "pyramidi")
audiofile <- "test.wav"
synthesize_midi(midifile, audiofile)
convert_to_mp3(audiofile)
audiofile %>% player()
}