fork download 
  1. string99 <- c("Foo  /10", "Foo Bar 7 / 0", "FooBar 25 / 5", "I do 156 / ")
  2.  gsub("^([^\\d/]*)|[^[:alnum:][:space:]]","\\1,",string99, perl=TRUE)
Success #stdin #stdout 0.22s 39104KB
comments (?)
stdin 
Standard input is empty
stdout 
[1] "Foo  ,,10"      "Foo Bar ,7 , 0" "FooBar ,25 , 5" "I do ,156 , "
https://ideone.com/1WQV05
language:
R (R 3.5.2)
created:
6 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!