条款错误.formula（object，data = data）：在Shiny App中

Question

我在一个线性回归闪亮的应用程序工作，我有一些麻烦。 fisrt部分应该是 swiss 数据集的一个例子。这是ui部分：

  checkboxInput(inputId="example",
                label= "Let's see an example?",
                value=FALSE),
  conditionalPanel("input.example",
                   selectInput(inputId="swissy",
              label="Choose an response variable.",
              choices=names(swiss),
              selected=""),
  checkboxGroupInput(inputId="swissx",
                     label="Choose the explanatory variables.",
                     choices=names(swiss))
  ),

服务器部分：

   observe({
    if(input$example){
      swissdata <- reactive({
      ys <- swiss[,input$swissy]
      xs <- model.matrix(~., swiss[,input$swissx])
      ms <- lm(ys~xs)
      return(ms)
      })
      output$table <- renderDataTable({swiss})
      output$model <- renderPrint({
        m0 <- swissdata()$ms
        print(summary(m0))
      })
      output$anova <- renderPrint({
        print(summary(anova(lm(swissdata()$ms))))
      })
      output$plots <- renderPlot({
        par(mfrow=c(2,2)); plot(lm(swissdata()$ms))
        ; layout(1)
      }, width=600, height=600)
    }
})

它应该在表格集中返回用户选择的线性模型的摘要，anova等。但是服务器没有识别数据，即数据集瑞士。我不知道为什么会这样，