Вот что я использую для печати чисел с плавающей точкой:
paste("$", round(number_i_want_as_currency, 2))
Я использую это в самом конце вычислений перед печатью, чтобы минимизировать ошибки округления. Единственное, чего не хватает в вашем запросе формата - это запятые каждые три цифры.
Если вы хотите сохранить значения, я бы порекомендовал пропустить вставку ("$" ...) и просто делать .. .
currency_storage <- round(number_i_want_as_currency, 2)