tests/readMidiTest.R

library("tuneR")
d <- list.files("Testfiles", pattern="\\.mid$")
garbage <- lapply(d, 
    function(x) {
        mid <- readMidi(file.path("Testfiles", x))
        cat(x, "\n")
        print(mid)
        print(getMidiNotes(mid))
    }
)

Try the tuneR package in your browser

Any scripts or data that you put into this service are public.

tuneR documentation built on May 29, 2017, 1:04 p.m.