当我在UI中定义它时，如何修复“找不到对象'选择'”

Question

我是写闪亮应用程序的新手。我正在尝试构建一个查询样式的应用程序，该应用程序可以从一系列问题中获取答案，并使用它们来缩小数据范围，从而使它们与自己的偏好最匹配。有点像嗡嗡声测验。我的应用程序现在无法为我运行，因为它告诉我无法找到对象“选择”，该对象在UI代码中多次写入。问题是我无法弄清楚原因，因为每次使用它都会对其进行定义，这是我做错了什么？

    UI:
    radioButtons("q1", label = h3("how many people are in your 
    household?"),
                       choices = list("1 to 2" = 1, "3 to 5" = 2, "6 to 
     7" = 3, "8" = 4, "9 or more" = 5), 
                       selected = 1),

    Server: 
    server<-function(input, output) {
      q1 <- reactive({
        if (input$q1 == "1 to 2"){
          q1dat <- dat_full$Seats < 6
        } else if (input$q1 == "3 to 5") {
          q1dat <- dat_full$Seats > 2 & dat_full$Seats < 6
        } else if (input$q1 == " 6 to 7") {
          q1dat <- dat_full$Seats > 5 
        } else if (input$q1 == "8"){
          q1dat <- dat_full$Seats > 7 
        } else if (input$q1 == "9 or more") {
          q1dat <- dat_full$Seats = 9
      }
    })