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