无法在R Shiny中创建反应性数据框：找不到对象“输入”

Question

我想通过多个输入构建一个动态数据框，然后使用该数据框从我已有的模式中获取预测值。

我的代码如下：

body <- dashboardBody(

tabItems(tabItem(tabName = "calculator",        
         box(
         flowLayout(
         numericInput('ra1', 'RA1', 0, min = 0, max = 1, step = 1),
         numericInput('ra2', 'RA2',0, min = 0, max = 1, step = 1))))

ui <- dashboardPage(
  dashboardHeader(title = "XXXXX", titleWidth = 300),
  sidebar,
  body
)


server <- function(input, output, session) {

dat <- reactive({

a <- as.integer(input$ra1) 
b <- as.integer(input$ra2)
dat = cbind(a,b)
dat = as.data.frame(dat)
dat

})

pred <- reactive({

  predict(y3, newdata = dat(), type="response")

})
}

shinyApp(ui, server)

但是在运行代码时，出现以下错误：

  

错误：找不到对象“输入”

有人知道发生了什么吗？ 非常感谢有人可以给我一些建议，谢谢！