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

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

我试着在网上寻找例子，只找到了一个使用粘贴函数的东西，但那是一个valueBox函数，我试过了，但没能将它合并到这个问题中

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)

库（闪亮）
ui一个选项可以是使用
shinyWidgets
包：

库（闪亮）
图书馆（shinyWidgets）
ui一个选项可以是使用
shinyWidgets
包：

库（闪亮）
图书馆（shinyWidgets）
uishinyWidgets
包有一个很棒的新功能（从0.5.4版开始添加，也是一个免责声明，我通过pull请求添加了它），自动数字输入允许您这样做。它基于javascript库autonumeric。该函数有很多选项，但是文档非常丰富，对于简单的使用，大多数都可以忽略

您试图做的事情可以通过以下方式完成：

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)

库（闪亮）
图书馆（shinyWidgets）
uishinyWidgets
包有一个很棒的新功能（从0.5.4版开始添加，也是一个免责声明，我通过pull请求添加了它），自动数字输入允许您这样做。它基于javascript库autonumeric。该函数有很多选项，但是文档非常丰富，对于简单的使用，大多数都可以忽略

您试图做的事情可以通过以下方式完成：

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)

库（闪亮）
图书馆（shinyWidgets）
用户界面