x <- "4,05g"gsub("(\\d+(?:,\\d+)?[[:alpha:]]*)", "{\\1}", x)
Standard input is empty
[1] "{4,05g}"
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!