# NOT RUN {
x <- c("I like the dog.", "I want it *|", "I;",
"Who is| that?", "Hello world", "You...")
rm_endmark(x)
ex_endmark(x)
rm_endmark(x, pattern="@rm_endmark2")
ex_endmark(x, pattern="@rm_endmark2")
rm_endmark(x, pattern="@rm_endmark3")
ex_endmark(x, pattern="@rm_endmark3")
# }
Run the code above in your browser using DataLab