正则表达式 – 从数字部分字符串中删除逗号

我怎样才能(最快的)从字符串的数字部分删除逗号而不影响字符串中的其余逗号.所以在下面的例子中,我想从数字部分删除逗号,但是狗之后的逗号应该保留(是的,我知道1023455中的逗号是错误的,但只是抛出一个角落案例).

是)我有的：

x <- "I want to see 102,345,5 dogs,but not too soo; it's 3,242 minutes away"

期望的结果：

[1] "I want to see 1023455 dogs,but not too soo; it's 3242 minutes away"

规定：必须在基础上完成,不添加包装.

先感谢您.

编辑：
谢谢Dason,Greg和Dirk.你的回答都很有效.我正在玩一些接近Dason的回应,但在括号内有逗号.现在看它甚至没有意义.我将这两个响应微缩位,因为我需要速度(文本数据)：

Unit: microseconds
         expr     min      lq  median      uq     max
1  Dason_0to9  14.461  15.395  15.861  16.328  25.191
2 Dason_digit  21.926  23.791  24.258  24.725  65.777
3        Dirk 127.354 128.287 128.754 129.686 154.410
4      Greg_1  18.193  19.126  19.127  19.594  27.990
5      Greg_2 125.021 125.954 126.421 127.353 185.666

1对你们所有人.

x <- "I want to see 102,242 minutes away"
gsub(",([[:digit:]])","1",x)
#[1] "I want to see 1023455 dogs,but not too soo; it's 3242 minutes away"
#or
gsub(",([0-9])",but not too soo; it's 3242 minutes away"