Ideone.com

download

copy

x <- c("Prayer: Lord. Have mercy on.")
gsub("^[^:]*:\\s*([^.]+).*","\\1",x)
gsub("^[^:]*:\\s*[^.]+\\.\\s*([^.]+).*","\\1",x)

Success #stdin #stdout 0.25s 38756KB

stdin

copy

Standard input is empty

stdout

copy

[1] "Lord"
[1] "Have mercy on"

https://ideone.com/4Iw9kW

language:

R (R 3.5.2)

created:

visibility:

secret

Share or Embed source code

The brand new service which powers Ideone!

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