在r shiny中对反应式数据帧进行多重回归的最佳方法是什么？

reactive_df <- reactive({
  # 在这里进行数据处理和准备，返回一个数据帧
})

observe({
  df <- reactive_df()
  
  # 执行多重回归分析
  model <- lm(dependent_variable ~ independent_variable1 + independent_variable2, data = df)
  
  # 输出回归结果
  summary(model)
})

output$regression_result <- renderPrint({
  df <- reactive_df()
  
  # 执行多重回归分析
  model <- lm(dependent_variable ~ independent_variable1 + independent_variable2, data = df)
  
  # 输出回归结果
  summary(model)
})

verbatimTextOutput("regression_result")