How do I format currency in R

Question

Is there an easier way to format currencies in R. The following code, generates a small table -

library(dplyr)
set.seed(1)
data = sample(5000:1500000,10, repl