Will return the data inside the reference object based on the index given.
Examples
reference <- read_msp(mums2_example("massbank_example_data.msp"))
#> Reading: /home/runner/work/_temp/Library/mums2/extdata/massbank_example_data.msp ...
get_reference_data(reference, 1)
#> $info
#> $info$keys
#> [1] "name" "precursormz" "precursortype" "formula"
#> [5] "ontology" "inchikey" "smiles" "retentiontime"
#> [9] "ccs" "ionmode" "instrumenttype" "instrument"
#> [13] "collisionenergy" "comment" "num peaks"
#>
#> $info$values
#> [1] "Veratramine; LC-ESI-TOF; MS2; CE\r"
#> [2] "410.305356\r"
#> [3] "[M+H]+\r"
#> [4] "C27H39NO2\r"
#> [5] "Fluorenes\r"
#> [6] "MALFODICFSIXPO-KFKQDBFTSA-N\r"
#> [7] "C[C@H]([C@@H]1NC[C@@H](C)C[C@H]1O)C1=C(C)C2=C(C=C1)[C@@H]1CC=C3C[C@@H](O)CC[C@]3(C)[C@H]1C2\r"
#> [8] "\r"
#> [9] "207.3842046\r"
#> [10] "Positive\r"
#> [11] "LC-ESI-QTOF\r"
#> [12] "\r"
#> [13] "\r"
#> [14] "registered in MassBank\r"
#> [15] "83\r"
#>
#>
#> $spec
#> $spec$mz
#> [1] 84.1 105.1 107.1 114.1 115.1 119.1 121.1 124.1 125.1 129.1 131.1 132.1
#> [13] 133.1 134.1 144.1 145.1 146.1 147.1 151.1 155.1 156.1 157.1 158.1 159.1
#> [25] 160.1 161.1 167.1 168.1 169.1 170.1 171.1 172.1 173.1 175.1 181.1 182.1
#> [37] 183.1 184.1 185.1 193.1 194.1 195.1 196.1 197.1 198.1 206.1 207.1 208.1
#> [49] 209.1 211.1 212.2 219.1 220.1 221.1 222.1 223.1 233.1 234.1 235.2 236.2
#> [61] 237.2 247.2 248.2 249.2 251.2 262.2 263.2 277.2 278.2 280.2 281.2 295.2
#> [73] 296.2 297.2 309.2 319.2 320.2 333.2 375.3 392.3 393.3 396.3 410.3
#>
#> $spec$intensity
#> [1] 32 6 6 105 7 8 6 83 8 7 129 13 212 23 5
#> [16] 108 12 14 8 26 17 372 45 216 29 6 6 7 121 17
#> [31] 350 47 10 5 27 12 108 18 18 16 6 37 12 41 7
#> [46] 8 28 8 23 51 9 6 11 35 13 11 16 8 34 13
#> [61] 12 16 18 17 6 42 11 77 17 17 22 1000 225 26 7
#> [76] 10 6 9 6 62 18 8 16
#>
#>