格式化R中的numericInput

Question

我试图在R Shiny应用程序中格式化数字输入，仅用于显示目的。当我在加载时显示数字时，然后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()的值一样