I have following string vector:
EC02 502R 603 515 602 KL07 601 511R 505R 506R 503 508 514 501 509R 510 50
lapply( dfrm, function(col_) {gsub( "R","",col_)} )