Ideone.com

download

copy

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

Success #stdin #stdout 0.24s 38888KB

stdin

copy

Standard input is empty

stdout

copy

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

https://ideone.com/AKkh3W

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!