Формат числового ввода в R

Question

Я пытаюсь отформатировать числовой ввод в блестящем приложении R только для отображения. Когда я делаю это при загрузке, он показывает число, а затем поле numericInput становится пустым.

library(shiny)

if(interactive()){
  shinyApp(
    ui <- fluidPage(
      mainPanel(
        numericInput("inp1", label = ("Total"), value = 11000000)
      )
    ),

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

      observe({
        updateNumericInput(session, "inp1", label = ("Total"),
                          paste("S", value = prettyNum(input$inp1, big.mark=",", scientific=FALSE)))
      })
    }
  )
}

Answer 1

Вы должны указать число в updateNumericInput, а paste("S", value = prettyNum(input$inp1, big.mark=",", scientific=FALSE)) - это символ, равный значению prettyNum()