\dontrun{ mid_file_str <- system.file("extdata", "test_midi_file.mid", package = "pyramidi") mido_mid_file <- mido$MidiFile(mid_file_str) dfc <- miditapyr$frame_midi(mido_mid_file) ticks_per_beat = mido_mid_file$ticks_per_beat df <- dfc %>% miditapyr$unnest_midi() }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.