在 Shiny flexdashboard 中使用 textInput

Question

新年快樂。 我正在嘗試使用 shiny 制作多元線性回歸應用程序。 我在 lm() 公式中使用 textInput 作為自變量部分，如下所示：

textInput("multiLinearReg","R Formula for features for multiple linear regression:")

mlg = eventReactive(input$goP4,{
  data = Train_Test()
  dataM = data['Train']$Train
  dataM = as.data.frame(dataM)
  target = dataM$Sale_Price
  
  model1 = lm(target ~ input$multiLinearReg,data=dataM)
  result = list("Summary"=summary(model1),"Confidence Interval"=confint(model1,level=input$confInt))
  result
})

renderPrint({
 mlg()
})

但我不斷收到這個error variable lengths differ (found for 'input$multiLinearReg')

我不知道如何解決它。 很感謝任何形式的幫助

Answer 1

我實際上找到了一個適合我的解決方案，如下所示：

mlg = eventReactive(input$goP4,{
  data = Train_Test()
  dataM = data['Train']$Train
  dataM = as.data.frame(dataM)
  target = 'Sale_Price'
  feature = eval(expression(input$multiLinearReg))[[1]]
  formula = as.formula(paste(target,'~',feature))
  model1 = lm(formula,data=dataM)
  result = list("Summary"=summary(model1),"Confidence Interval"=confint(model1,level=input$confInt))
  result
})

renderPrint({
 mlg()
})