Existe alguma forma de mostrar os números como moeda (R$), incluindo separador de milhares e centavos, nas barras de progresso do pacote shinyWidgets do shiny? Estou tentando rodar alguns códigos, mas todos eles convertem números para strings, então o shiny não consegue calcular.
No exemplo, eu gostaria que ficasse assim:
R$1.000.000,70/R$5.000.000,29
library(shiny)
library(shinyWidgets)
ui <- fluidPage(
progressBar(id = "pb1", value = 1000000.70,
total = 5000000.29, status = "info", display_pct = TRUE, striped = TRUE,
title = "DONATION"),
progressBar(id = "pb2", value = as.numeric(1000000.70, options(scipen=999)),
total = as.numeric(5000000.29, options(scipen=999), status = "info", display_pct = TRUE, striped = TRUE,
title = "DONATION")
)
)
server <- function(input, output) {}
shinyApp(ui = ui, server = server)
paste0
junto com a funçãoformat
antes dos valores não resolveria?