# NOT RUN {
# Load libraries
library(dplyr)
library(stringr)
library(tibble)
# Generate data
data <- tibble::tibble(
"traceR_precursor" = c("AACLLPK",
"ALTDM(UniMod:35)PQM(UniMod:35)R2",
"ALTDM(DummyModification)PQMK3")
)
# Unknown modifications present?
get_unknown_mods(input_string = data$traceR_precursor, pattern_start= "(", pattern_end = ")")
# }
Run the code above in your browser using DataLab