fork download 
  1. regex.escape <- function(string) {
  2.   gsub("([][{}()+*^${|\\\\?.])", "\\\\\\1", string)
  3. }
  4. sort.by.length.desc <- function (v) v[order( -nchar(v)) ] 
  5.  
  6. name <- c('Mrs. Emily S', 'Dr. Richard L', 'Dr. Drake D', 'Mr. Mrdrmsmrs', 'Test Name')
  7. prefix <- c('Dr.', 'Mr.', 'Ms.', 'Mrs.', 'Capt.')
  8. prefix <- sort.by.length.desc(prefix)
  9. res <- trimws(gsub(paste0("^(?:",paste(regex.escape(prefix), collapse="|"), ")"), '', name, perl="TRUE"))
  10. res
Success #stdin #stdout 0.22s 39112KB
comments (?)
stdin 
Standard input is empty
stdout 
[1] "Emily S"   "Richard L" "Drake D"   "Mrdrmsmrs" "Test Name"
https://ideone.com/UhaiFv
language:
R (R 3.5.2)
created:
5 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!