r - 在 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)))
      })
    }
  )
}

标签： rshiny

Answer 1

您应该提供一个数字，updateNumericInput并且paste("S", value = prettyNum(input$inp1, big.mark=",", scientific=FALSE))是一个字符，它的值也是prettyNum()