x <- "I know \U0001F621\U0001F923s"regmatches(x, gregexpr("[^[:ascii:]]+", x, perl=TRUE))
Standard input is empty
[[1]] [1] "😡🤣"
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!