Head, shoulders, knees and toes...

grammar-of-music.R

# Ubuntu/debian: sudo apt-get install musescore
# pak::pak("flujoo/gm")
Sys.setenv(MUSESCORE_PATH = "/usr/bin/musescore")
library(gm)

(Music() +
  Meter(4, 4) +
  Line(
    pitches = c(
      c("G4", "A4", "G4", "F#4"),
      c("G4", "E4", "G4", "G4", "G4")
    ),
    durations = c(
      c(2, 1, 1, 1),
      c(1, 2, 1, 1, 2)
    )
  )) |> 
  show(x = _)

file14c299379b56cc.mp4