## Not run:
# ## NOTE: These examples will likely fail unless
# ## http://rick.measham.id.au/paste/explain becomes available again.
# library("qdapRegex")
# (myregex <- grab("@rm_time2"))
# out <- as.regexr(myregex)
#
# out
# summary(out)
# comments(out)
# subs(out)
# test(out)
# get_construct(out)
#
# ## On Windows copy to clipboard
# get_construct(out, file="clipboard")
#
# ## No names & comments behind sub-expressions
# myregex2 <- "(\\s*[a-z]+)([^)]+\\))"
# get_construct(as.regexr(myregex2, names=FALSE))
# get_construct(as.regexr(myregex2, names=FALSE, names.above = TRUE,
# comments.below = TRUE))
# ## End(Not run)
Run the code above in your browser using DataLab