x <- "foo > bar > foo bar > foo > test > test this"gsub("(\\s*>\\s*)|\\s+", "\\1", x)
Standard input is empty
[1] "foo > bar > foobar > foo > test > testthis"
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!