使用Shiny在线性回归模型中更改变量

Question

我的目标是让用户能够在Shiny应用程序中将输入更改为线性回归模型，并使Shiny应用程序根据给定变量的值显示预测。

即。鸡店使用可变温度和星期几来预测销售。我希望用户能够更改这些变量以查看不同的预测。

calculateModel <- function(data,input){
  regCT <- reactive({tslm(Total ~ Monday,data=data)})
  nextCT <- data.frame(Monday=input$Monday)
  fCT <- forecast(regCT,newdata=nextCT)
  return(fCT)
}

ui <- dashboardPage(
  dashboardHeader(title = "Chicken"),
  dashboardBody(
    fluidRow(
      box(plotOutput("main_plot", height = "300px")),
      box(sliderInput("Monday","Monday",0,1,1)
      )
    )
  )
)
server <- shinyServer(function(input, output) {

dataInput <- reactive({

calculateModel(daily,input)
})

  output$main_plot <- renderPlot({
    input$Monday
    plot(fCT)

  })

})
shinyApp(ui,server)

这是我假设代码看起来很粗略的概述。 任何帮助将不胜感激。