Format number in R with both comma thousands separator and specified decimals

format not formatC:

format(round(as.numeric(1000.64), 1), nsmall=1, big.mark=",")  # 1,000.6