Как добавить знак валюты в числовой ввод

Question

Есть ли способ разместить знак £ внутри поля ввода числа c? Таким образом, когда кто-то вводит число, оно автоматически отображается в денежном формате. Если у кого-то есть решение или он может указать мне в правильном направлении, очень признателен.

Пытался поискать примеры в Интернете, нашел только одну вещь, которая использует функцию вставки, но это была функция 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)

Answer 1

Можно использовать пакет shinyWidgets:

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)