View source: R/input-autonumeric.R
currencyInput | R Documentation |
Shiny widgets for as-you-type formatting of currency and numeric values. For
a more modifiable version see autonumericInput()
. These two
functions do the exact same thing but are named differently for more
intuitive use (currency for money, formatNumeric for percentage or other).
currencyInput(
inputId,
label,
value,
format = "euro",
width = NULL,
align = "center"
)
formatNumericInput(
inputId,
label,
value,
format = "commaDecimalCharDotSeparator",
width = NULL,
align = "center"
)
inputId |
The |
label |
Display label for the control, or NULL for no label. |
value |
Initial value (unformatted). |
format |
A character string specifying the currency format of the input. See "Details" for possible values. |
width |
The width of the input box, eg. |
align |
The alignment of the text inside the input box, one of "center", "left", "right". Defaults to "center". |
In regards to format
, there are currently 41 sets of predefined
options that can be used, most of which are variations of one another.
The most common are:
"French"
"Spanish"
"NorthAmerican"
"British"
"Swiss"
"Japanese"
"Chinese"
"Brazilian"
"Turkish"
"euro" (same as "French")
"dollar" (same as "NorthAmerican")
"percentageEU2dec"
"percentageUS2dec"
"dotDecimalCharCommaSeparator"
"commaDecimalCharDotSeparator"
To see the full list please visit this section of the AutoNumeric Github Page.
a currency input widget that can be added to the UI of a shiny app.
Bonneau, Alexandre. 2018. "AutoNumeric.js javascript Package". https://autonumeric.org/.
Other autonumeric:
autonumericInput()
,
updateAutonumericInput()
,
updateCurrencyInput()
if (interactive()) {
library(shiny)
library(shinyWidgets)
ui <- fluidPage(
tags$h2("Currency Input"),
currencyInput("id1", "Euro:", value = 1234, format = "euro", width = 200, align = "right"),
verbatimTextOutput("res1"),
currencyInput("id2", "Dollar:", value = 1234, format = "dollar", width = 200, align = "right"),
verbatimTextOutput("res2"),
currencyInput("id3", "Yen:", value = 1234, format = "Japanese", width = 200, align = "right"),
verbatimTextOutput("res3"),
br(),
tags$h2("Formatted Numeric Input"),
formatNumericInput("id4", "Numeric:", value = 1234, width = 200),
verbatimTextOutput("res4"),
formatNumericInput("id5", "Percent:", value = 1234, width = 200, format = "percentageEU2dec"),
verbatimTextOutput("res5")
)
server <- function(input, output, session) {
output$res1 <- renderPrint(input$id1)
output$res2 <- renderPrint(input$id2)
output$res3 <- renderPrint(input$id3)
output$res4 <- renderPrint(input$id4)
output$res5 <- renderPrint(input$id5)
}
shinyApp(ui, server)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.