Добавить запятую каждые 3 цифры в r

format(data, big.mark = ",")
Successful Salmon