m <- construct(
space =
"\\s+"
%:)%"I see",
simp =
"(?<=(foo))",
or =
"(;|:)\\s*"
%:)%"comment on what this does",
"[a]s th[atey]"
)
test(m)
## Not run:
# subs(m)[5:7] <- c("(", "([A-Z]|(\\d{5})", ")")
# test(m)
# ## End(Not run)
Run the code above in your browser using DataLab