R闪亮的numericInput步和最小值交互

时间:2018-05-13 05:22:30

标签: r shiny increment numeric minimum

考虑R Shiny应用程序中的以下数字小部件:

numericInput("val", "Enter value:", value = 50, min = 0, step = 5)

如果在运行应用程序时单击窗口小部件中的向上/向下箭头,则值将按预期增加或减少5(0,5,10,15,...)。

现在考虑将最小值更改为1:

numericInput("val", "Enter value:", value = 50, min = 1, step = 5)

如果您现在单击向上/向下箭头,该值仍将增加/减少5,但从1开始,创建序列1,6,11,16,......

当最小值为1时,是否可以保持5的递增/递减但从0开始(因此序列为0,5,10,15 ......)

可能需要这样的例子(如我的情况)是你希望用户输入(严格)正数,但增量/减量值为5,因为5的倍数很好,很容易,四舍五入的数字(而不是1,6,11,16 ......等)

1 个答案:

答案 0 :(得分:1)

您可以使用updateNumericInput来阻止numericInput中的空值。这是一个例子:

library(shiny)

ui <- fluidPage(
  sidebarPanel(
    numericInput("val", "Enter value:", value=50, min = 0, step = 5)
  )
)

server <- function(input, output, session) {
  observeEvent(input$val, {
    x <- input$val
    if (x == 0 | is.na(x)){
      updateNumericInput(session, "val", value = 1)
    }
  })
}

shinyApp(ui, server)