x <- c("@kyrieirving’s", "@jaytatum0")gsub("['’]s\\b|[^[:alnum:][:blank:]@_]", "", x)
Standard input is empty
[1] "@kyrieirving" "@jaytatum0"
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!