Write note_on
and note_off
events in two lines (wide to long)
Source: R/pivot_note_on_off.R
pivot_long_notes.Rd
Write note_on
and note_off
events in two lines (wide to long)
See also
Other Pivot midi frame functions:
pivot_wide_notes()
Examples
if (FALSE) {
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()
}
if (FALSE) {
dfm <- tab_measures(df, ticks_per_beat)
library(zeallot)
c(df_meta, df_notes) %<-% miditapyr$split_df(dfm)
dfw <- df_notes %>% pivot_wide_notes()
dfw %>% pivot_long_notes()
}