data-raw/chord_input1.R

In leonawicz/tabr: Music Notation Syntax, Manipulation, Analysis and Transcription in R

frets <- list(
  c(1, 3, 3, 2, 1, 1), c(NA, 1, 3, 3, 3, 1), c(NA, NA, 1, 3, 4, 3),
  c(1, 3, 3, 1, 1, 1), c(NA, 1, 3, 3, 2, 1), c(NA, NA, 1, 3, 4, 2),
  c(1, 3, 1, 2, 1, 1), c(NA, 1, 3, 1, 3, 1), c(NA, 3, 2, 3, 1, NA), c(NA, NA, 1, 3, 2, 3), c(NA, NA, 3, 2, 4, 1),
  c(1, NA, 2, 2, 1, NA), c(NA, 1, 3, 2, 3, 1), c(NA, 4, 3, 1, 1, 1), c(NA, NA, 1, 3, 3, 3), c(NA, NA, 4, 3, 2, 1),
  c(1, 3, 1, 1, 1, 1), c(NA, 1, 3, 1, 2, 1), c(NA, 3, 1, 3, 1, NA), c(NA, NA, 1, 3, 2, 2), c(NA, NA, 3, 1, 4, 1),
  c(4, 1, 1, 1, NA, NA), c(NA, 1, 3, 3, 1, 1), c(NA, NA, 1, 3, 4, 1),
  c(1, 3, 3, 3, 1, 1), c(NA, 1, 3, 3, 4, 1), c(NA, NA, 1, 3, 4, 4),
  #c(1, 3, 3, NA, NA, NA), c(NA, 1, 3, 3, NA, NA), c(NA, NA, 1, 3, 4, NA),
  c(2, NA, 1, 2, 1, NA), c(NA, 2, 3, 1, 3, NA), c(NA, 2, NA, 1, 3, 1), c(NA, NA, 1, 2, 1, 2), c(NA, NA, 6, 4, 3, 1),
  c(2, NA, 2, 2, 1, NA), c(NA, 1, 2, 1, 2, NA), c(NA, 2, NA, 2, 3, 1), c(NA, NA, 1, 2, 2, 2), c(NA, NA, 5, 3, 2, 1),
  c(2, NA, 2, 3, 1, NA), c(NA, 1, 2, 1, 3, NA), c(NA, 2, NA, 2, 4, 1), c(NA, NA, 1, 2, 2, 3), c(NA, NA, 5, 4, 2, 1),
  c(1, NA, 2, 2, 1, 3), c(NA, 2, 1, 3, 2, NA), c(NA, 4, 1, 1, 1, 1), c(3, NA, 1, 3, 3, 1), c(NA, NA, 2, 1, 4, 3),
  c(1, 3, 1, 2, 1, 3), c(NA, 2, 1, 2, 2, 2), c(3, NA, 1, 3, 2, 1), c(NA, NA, 2, 1, 3, 2),
  c(1, 3, 1, 1, 1, 3), c(NA, 3, 1, 3, 3, 3), c(2, NA, 1, 3, 2, 1), c(NA, NA, 3, 1, 3, 4),
  c(2, 1, 1, 1, 2, 2), c(NA, 2, 1, 1, 2, 2), c(NA, 4, 1, 3, 2, 1), c(3, NA, 1, 3, 1, 1), c(NA, NA, 2, 1, 2, 2),
  c(1, 3, 5, 2, 1, 1), c(NA, 1, 3, 5, 3, NA), c(NA, 4, 3, 1, 4, NA), c(NA, NA, 1, 3, 4, 1), c(NA, NA, 3, 2, 1, 3),
  c(3, NA, 3, 2, 1, NA), c(NA, 3, NA, 3, 3, 1), c(NA, 1, 1, 1, 1, 1), c(NA, NA, 1, 1, 2, 1), c(NA, NA, 3, 2, 1, 3)
)

id <- c(rep("M", 3), rep("m", 3), rep("7", 5), rep("M7", 5), rep("m7", 5), rep("sus2", 3), rep("sus4", 3),
        #rep("5", 3),
        rep("dim7", 5), rep("m7_5", 5), rep("7_5", 5), rep("M9", 5), rep("9", 4), rep("m9", 4),
        rep("6add9", 5), rep("add9", 5), rep("11", 5))

opt <- as.list(rep(NA, 70))

chordData1 <- tibble(id = id, frets = frets, opt = opt)