# NOT RUN {
try({
## extract substrings based on regular expressions
string_01 <- "I can't wait to watch the <strong>Late Night Show with"
string_01 <- paste(string_01, "Seth Meyers</strong> tonight at <strong>11:30</strong>pm CT!")
print(string_01)
custom_grep(xml_data = string_01, tag = "strong", format = "char")
custom_grep(xml_data = string_01, tag = "strong", format = "list")
}, silent = TRUE)
# }
Run the code above in your browser using DataLab