r-组合Shiny中的NULL和数值

Question

我想在Shiny 中复制以下R代码

if ((is.null(num.iters)) || (num.iters == 1))

我试过了，但我得到了

character(0)
Error: missing value where TRUE/FALSE needed

使用

numericInput(inputId = "num.iters",
label = "Number of iterations to run (num.iters)",
value = NULL,
min = 1,
max = 1)

问题是NULL不是数字。目的是让NULL运行所有迭代。不幸的是，由于我的应用程序涉及随机模拟，因此不知道要运行多少次迭代。我看到这篇文章，其中涉及一个类似的问题：如何在R Shiny 中使用NULL值作为变量调用

但我想将NULL和一个只有一个输入标签的数值组合起来，这与对链接帖子的响应有点不同。

这可能吗？

Answer 1

numericInput为空时默认为NA。也许一个变通办法是：

library(shiny)
ui <- fluidPage(
numericInput(
inputId = "num.iters",
label = "Number of iterations to run (num.iters)",
value = NA,
min = 1,
max = 1
)
)
server <- function(input, output, session) {
observe({
if ((is.na(input$num.iters)) || (input$num.iters == 1)) {
print(as.null(input$num.iters))
}
})
}
shinyApp(ui, server)