s <- "81 Delaware St, Staten Island, NY 10304, USA"unlist(regmatches(s, gregexpr("^[^,]+", s)))
Standard input is empty
[1] "81 Delaware St"
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!