如何在数字输入中添加货币符号

Question

有没有办法在数字输入框中有一个£符号？ 因此，当有人输入数字时，它会自动以货币格式显示。 如果有人有解决方案或可以指出我正确的方向，非常感谢。

尝试在网上查找示例，只发现一个使用粘贴 function 的东西，但那是用于 valueBox function 的东西，我已经尝试过但未能将其合并到这个问题中。

library(shiny)

    ui <- fluidPage(
      fluidRow(
          numericInput("Selectcost", "Enter the cost", value = "", step= 0.01, min= 0, max= 50)
    ))

    server <- function(input, output) {
    }


    shinyApp(ui = ui, server = server)

Answer 1

一个选项可能是使用shinyWidgets package：

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  fluidRow(
    shinyWidgets::numericInputIcon("Selectcost", 
                                   "Enter the cost", 
                                   value = "", 
                                   step= 0.01, 
                                   min= 0, 
                                   max= 50, 
                                   icon = list(NULL, icon("pound-sign")))
  ))

server <- function(input, output) {
}

shinyApp(ui = ui, server = server)

Answer 2

shinyWidgets package 有一个很棒的新 function（从 0.5.4 版开始添加，也是免责声明，我通过拉取请求添加了它），自动数字输入将允许您执行此操作。 它基于 javascript 库自动数字。 function 有很多选项，但是文档很广泛，对于简单的用途，大多数可以忽略。

您正在尝试做的事情可以完成如下：

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  h1("Autonumeric Input Example"),
  shinyWidgets::autonumericInput(
    inputId = "cost", 
    label = "Enter the cost", 
    value = 100, 
    currencySymbol = "£",
    currencySymbolPlacement = "p",
    decimalPlaces = 2
  ),
  verbatimTextOutput("res1")
)

server <- function(input, output) {
  output$res1 <- renderText(input$cost)
}

shinyApp(ui = ui, server = server)

这导致：

来自上述代码块的示例 output

希望这是有用的！