shiny - Rshiny：論理演算子を使用してnumericInputをテストします

Question

光沢のあるアプリでは、数値を入力できます (numericInput)。メソッドは、数値が 1 に等しい場合は 1 のままにする必要がありますが、それ以外の場合 (x!=1) は変数を 0 に設定する必要があります。

server.rで:

...    
checkNumber=reactive({
      if(!is.null(input$data)){    

      output$n_insertNumber<-renderUI({
        if(!is.null(input$data)){
          numericInput("number", "Number", value = 8)
        }  
      })

      x<-input$number
      if (x!=1){x==0}
      }
})
...

ui.rで:

...    
uiOutput("n_insertNumber"),
...

出力：

警告: if のエラー: 引数の長さがゼロです

誰かが解決策を見つけるのを手伝ってくれますか? ありがとう！