"Error in formatNoSci(value) : argument "Shiny 中缺少值，没有默认值

Question

我有一个非常简单的 Shiny。

出于某种原因，我得到了错误
Error in formatNoSci(value) : argument "value" is missing, with no default
和
Error in force(ui) : object 'ui' not found.

我用谷歌搜索了这些错误，但找不到任何内容。

我可以推断 ui 出于某种原因没有被构建，但我不知道为什么，我也不知道 formatNoSci 做了什么。

DF_custs <- data.frame(ID=c(1,2,3,3), val=c(10, 20, 100, 200))

## app.R ##
server <- function(input, output) {

  get_cust <- reactive({
    cust <- DF_custs[which(DF_custs$ID == input$num), ]
    return(cust$val)})

  output$result <- renderText({ 
    ans <- get_cust()
    paste("You chose: ", ans)})
    }

ui <- fluidPage(
      numericInput(inputId="num", label="Pick an ID: "),
      fluidRow(
        column(1,
               fluidRow(
                 wellPanel(

      mainPanel(textOutput("result"))))))
)

shinyApp(ui = ui, server = server)

如有任何建议，我们将不胜感激。

Answer 1

根据@Matt 的评论，这是 ui 中 numericInput 的初始状态设置为 NULL 的问题，它触发了 [=13] 中的反应函数=].一些解决方案是

server 中的错误处理以在尝试检索 cust 或

NULL

将 ID 初始化为存在的默认值，或
将 numericInput 转换为按钮样式输入，其中直到用户按下 "submit" 才会计算反应函数。

另见这个问题：

"Error in formatNoSci(value) : argument "Shiny 中缺少值，没有默认值

"Error in formatNoSci(value) : argument "value" is missing, with no default" in Shiny

r

shiny