# NOT RUN {
suppressPackageStartupMessages(library(dplyr))
chords <- filter(
  guitarChords, root %in% c("c", "f") & id %in% c("7", "M7", "m7") &
  !grepl("#", notes) & root_fret <= 12) %>%
  arrange(root, id)
chords <- setNames(chords$fretboard, chords$lp_name)
head(chords)
# requires LilyPond installation
if(tabr_options()$lilypond != ""){
  outfile <- file.path(tempdir(), "out.pdf")
  hdr <- list(
    title = "Dominant 7th, major 7th and minor 7th chords",
    subtitle = "C and F root"
  )
  render_chordchart(chords, outfile, 2, hdr, list(textheight = 175))
}
# }
Run the code above in your browser using DataLab