data-raw/chord_input2.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, 4, 3, 1, 2, 1), c(4, 3, 1, 1, 1, 4), c(NA, NA, 1, 3, 4, 3), #M
  c(1, 3, 3, 1, 1, 1),  c(NA, 1, 3, 3, 2, 1),  c(4, 2, 1, 1, NA, NA), c(NA, 4, 2, 1, 2, NA), c(NA, NA, 1, 3, 4, 2), #m
  c(1, 3, 1, 2, 1, 1),  c(NA, 1, 3, 1, 3, 1),  c(NA, 3, 2, 3, 1, 3), c(1, NA, 1, 2, 1, NA), c(NA, NA, 1, 3, 2, 3), #7

  c(1, 3, 2, 2, 1, 1), c(NA, 1, 3, 2, 3, 1), c(NA, 4, 3, 1, 1, 1), c(4, NA, 1, 1, 1, 3), c(NA, NA, 1, 3, 3, 3), #M7
  c(1, 3, 1, 1, 1, 1), c(1, NA, 1, 1, 1, 1), c(NA, 1, 3, 1, 2, 1), c(NA, 3, 1, 3, 4, NA), c(NA, NA, 1, 3, 2, 2), #m7
  c(2, NA, 2, 2, 1, NA), c(NA, 1, 2, 1, 2, NA), c(NA, 3, 2, 1, 1, NA),
  c(1, NA, 1, 2, 2, NA), c(NA, 1, 2, 3, 2, NA), c(2, NA, 1, 2, 1, NA),

  c(NA, 1, 3, 3, 1, 1), c(1, 3, 3, 3, 1, 1), c(NA, 1, 3, 3, 4, NA), c(1, 3, 5, 2, 1, 1),
  c(NA, 1, 3, 5, 3, 1), c(1, 3 ,5, 1, 1, 1), c(1, 3, 3, 1, 1, 3), c(NA, 1, 3, 5, 1, 1),
  c(1, 1, 3, 1, 1, 1), c(NA, 1, 1, 3, 2, 1), c(2, NA, 1, 2, 2, NA),

  c(NA, 2, 4, 1, 3, NA), c(3, NA, 1, 3, 3, NA), c(2, NA, 1, 3, 2, NA), c(NA, 2, 4, 1, 4, NA),
  c(3, 1, 2, 2, NA, NA), c(NA, 3, 1, 2, 3, NA), c(2, 1, 1, 1, 2, 2), c(NA, 2, 1, 1, 2, 2),
  c(1, NA, 1, 1, 1, 3), c(1, NA, 1, 1, 2, NA), c(NA, 1, 4, 1, 2, NA),

  c(1, NA, 2, 1, 1, NA), c(NA, 1, 3, 2, 2, NA), c(2, NA, 2, 1, 2, NA), c(NA, 1, 3, 1, 1, 1),
  c(1, 3, 1, 3, 1, 1), c(NA, 1, 3, 1, 4, 1), c(NA, 1, 2, 1, 3, NA), c(2, NA, 2, 3, 1, NA),
  c(NA, 1, 4, 1, 3, NA), c(1, NA, 1, 2, 2, NA), c(1, NA, 1, 2, 1, 2),

  c(NA, 2, 1, 2, 3, NA), c(1, NA, 1, 2, 2, 2), c(2, NA, 2, 3, 1, 3), c(NA, 2, 1, 2, 3, 1),
  c(NA, 2, 1, 2, 3, 3), c(2, 1, 2, 2, 3, NA), c(NA, 1, 2, 1, 3, 1),
  c(1, 4, 1, 2, 1, 1), c(1, 3, 1, 2, 2, 1), c(NA, 1, 4, 1, 3, 1),

  c(2, NA, 3, 3, 1, NA), c(NA, 1, 2, 2, 3, NA), c(1, NA, 3, 3, 3, NA), c(NA, 1, 4, 2, 3, NA),
  c(1, 2, 2, 2, 2, NA), c(1, 1, 2, 2, 1, 1), c(NA, 1, 1, 2, 3, 1),
  c(2, 4, 3, 3, 1, NA), c(1, 2, 2, 2, 1, NA), c(NA, 1, 2, 2, 3, 1),

  c(1, NA, 2, 2, 3, 1), c(NA, 1, 5, 2, 3, 1), c(1, NA, 2, 2, 3, 3),

  c(1, 3, 1, 2, 1, 3), c(NA, 2, 1, 2, 2, 2), c(1, NA, 2, 2, 1, 3), c(NA, 3, 1, 3, 3, 3), c(1, 3, 1, 1, 1, 3), #9 etc
  c(1, 3, 1, 3, 1, 3), c(NA, 1, 1, 1, 1, 1), c(1, NA, 1, 2, 2, 3), c(2, 1, 2, 1, 1, NA), c(NA, 2, 1, 2, 2, 1),

  c(3, NA, 3, 4, 1, NA), c(NA, 1, 1, 1, 3, 1), c(NA, 3, NA, 3, 5, 1), c(3, NA, 3, 2, 1, NA), c(NA, 3, NA, 3, 3, 1), c(2, 1, 2, 4, NA, NA), c(NA, 1, 3, 1, 5, 1), c(NA, NA, 1, 1, 2, 3), #11

  c(1, 1, 2, 3, 1, 3), c(NA, 3, NA, 4, 3, 1), #M11

  c(3, NA, 3, 3, 1, 1), c(NA, 1, 1, 1, 2, 1), c(3, NA, 3, 3, 1, NA), c(4, NA, 1, 3, 2, NA), c(NA, 3, NA, 3, 4, 1), #m11

  c(1, 3, 1, 2, 3, 1), c(NA, 2, 1, 2, 2, 4), c(1, NA, 1, 2, 3, 3), #13

  c(1, NA, 2, 2, 3, 3), c(2, 1, 1, 1, 2, 1), c(4, NA, 5, 3, 1, 1), c(NA, 1, NA, 2, 3, 3), c(NA, 4, 3, 3, 1, NA), #M13

  c(1, 3, 1, 1, 3, 1), c(1, 3, 1, 1, 3, 3), c(NA, 1, 3, 1, 2, 3), #m13

  c(1, 3, 1, 3, 3, 1), c(1, 2, 1, 2, 3, 1), c(1, 2, 1, 2, 3, 1), c(1, 4, 1, 2, 3, 1) #13 etc
)

id <- c(rep("M", 5), rep("m", 5), rep("7", 5),
        rep("M7", 5), rep("m7", 5), "m7_5", "m7_5", "aug", "aug7", "dim", "dim7",
        "sus2", "sus4", "sus4", "add2", "add2", "madd2", "madd2", "madd2", "madd4", "madd4", "m6",
        "m6", "m_6", "6", "6", "m6add9", "m6add9", "6add9", "6add9", "m7_9", "m7#5", "m7#5",
        "mM7", "mM7", "7sus2", "7sus2", "7sus4", "7sus4", "7_5", "7_5", "7#5", "7#5", "7_9",
        "7#9", "7_9#5", "7_9_5", "7#9_5", "7#9_13", "7#9_13", "7#11", "7_13", "7_13", "7_13",
        "M7_5", "M7_5", "M7#5", "M7#5", "M7#5#11", "M711", "M711", "M7#11", "M7#11", "M7#11",
        "M713", "M713", "M7913",
        "9", "9",  "M9", "m9", "m9", "9sus4", "9sus4", "9#5", "9#11", "9#11",
        "11", "11", "11", "11", "11", "11", "11", "11",
        "M11", "M11",
        "m11", "m11", "m11", "m11", "m11",
        "13", "13", "13",
        "M13", "M13", "M13", "M13", "M13",
        "m13", "m13", "m13",
        "13sus4", "13_5", "13#11", "13#5")

opt <- list(c(2, 6), 6, 6, NA, NA, c(2, 6), 6, NA, NA, NA, c(2, 6), 6, 6, NA, NA,
            c(2, 6), 6, 6, NA, NA, c(2, 6), 6, NA, NA, NA, NA, NA, NA, NA, NA, NA,
            6, c(2, 5, 6), NA, 6, 6, c(2, 6), 2, 6, 6, 6, NA,
            NA, NA, NA, NA, NA, NA, c(5, 6), 6, NA, NA, NA,
            NA, NA, NA, 6, c(2, 5, 6), 6, NA, NA, NA, NA, NA,
            NA, NA, NA, NA, NA, NA, NA, 6, 6, NA,
            NA, NA, NA, NA, NA, 6, 6, NA, NA, NA,
            6, 6, NA,
            2, 6, NA, 6, 2, 2, 6, NA, NA, NA,
            NA, 6, NA, NA, NA, NA, NA, NA,
            NA, NA,
            6, 6, NA, NA, NA,
            c(2, 6), NA, 6,
            6, NA, NA, NA, NA,
            c(2, 6), c(2, 6), 3,
            c(2, 6), 6, 6, 6)

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