如果未选中复选框，则将数字输入更改为0

Question

我想知道如果没有点击复选框，是否可以通过updateNumericInput将数字输入的值设置为等于0。下面是我的代码如何设置，以生成复选框和数字输入。由于应用程序的性质，我不得不使用循环来创建动态数量的复选框和输入，因此我非常感谢在保持功能的同时将这两者联系起来的任何帮助。

服务器文件：

  shinyServer(function(input, output, session) {

  output$inputs1 <- renderUI({
    numSliders <- input$sources
    lapply(1:numSliders, function(i) {
      numericInput(
        inputId = paste0('slider1', i),
        label = df[i,2],
        value = df[i,3]*(input$budget)/100)
    })
  })

  output$checks1 <- renderUI({
    numSliders <- input$sources
    lapply(1:numSliders, function(i) {
      checkboxInput(
        inputId = paste0('check1', i),
        label = df[i,2],
        value = TRUE
        )
    })
  })
}

UI：

  shinyUI(fluidPage(fluidRow(
    sidebarLayout(
      sidebarPanel(
        column(5,numericInput("budget", "Budget", value = 0),
          uiOutput("checks1")),
        column(5,uiOutput("inputs1"))),
      mainPanel()
   )
  )
 )
)

如果有任何解决方法，请告诉我。

提前致谢！