在 R 中格式化 numericInput

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() 的值也是如此