Format numbers in noUiSliderInput

wNumbFormat(
decimals = NULL,
mark = NULL,
thousand = NULL,
prefix = NULL,
suffix = NULL,
negative = NULL
)

decimals The number of decimals to include in the result. Limited to 7. The decimal separator. Defaults to '.' if thousand isn't already set to '.'. Separator for large numbers. For example: ' ' would result in a formatted number of 1 000 000. A string to prepend to the number. Use cases include prefixing with money symbols such as '$' or '€'. A number to append to a number. For example: ',-'. The prefix for negative values. Defaults to '-'. Value a named list. Note Performed via wNumb JavaScript library : https://refreshless.com/wnumb/. Examples if (interactive()) { library( shiny ) library( shinyWidgets ) ui <- fluidPage( tags$h3("Format numbers"),
tags$br(), noUiSliderInput( inputId = "form1", min = 0, max = 10000, value = 800, format = wNumbFormat(decimals = 3, thousand = ".", suffix = " (US$)")
),
verbatimTextOutput(outputId = "res1"),

tags$br(), noUiSliderInput( inputId = "form2", min = 1988, max = 2018, value = 1988, format = wNumbFormat(decimals = 0, thousand = "", prefix = "Year: ") ), verbatimTextOutput(outputId = "res2"), tags$br()

)

server <- function(input, output, session) {

output$res1 <- renderPrint(input$form1)
output$res2 <- renderPrint(input$form2)

}

shinyApp(ui, server)

}