Ideone.com

fork download

copy

row1 <- c("AA.8.BB.CCCC", "2017","3.166.5","3.080.2","68", "185.223.632.4", "500.332.1")
gsub("(?<=\\d)[.](?=\\d{3}[.])", ",", row1, perl=TRUE)

Success #stdin #stdout 0.2s 39708KB

stdin

copy

Standard input is empty

stdout

copy

[1] "AA.8.BB.CCCC"  "2017"          "3,166.5"       "3,080.2"      
[5] "68"            "185,223,632.4" "500,332.1"

https://ideone.com/pHnFw0

language:

R (R 3.5.2)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

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