将变量名称传递给闪亮的应用程序中的模型

Question

我正在为使用Shiny创建用于简单线性回归的应用程序。我想将变量名自动传递给模型。我尝试了来自用户的可变输入。server.R中的代码是

lm(paste(input$dependent," ~ ",input$independent), data=data1())

和

lm(paste0(input$dependent) ~ paste0(input$independent), data=data1())

并且还尝试了以下语法；

lm(names(data1()[2]) ~ names(data1()[1]) , data=data1())

这些都不起作用...
如何将变量名传递给模型？
提前致谢...

Answer 1

您的示例不足以让我了解您遇到的错误，但是我认为这应该可以解决问题：

    lm(as.formula(paste(input$dependent," ~ ",paste(input$independent,collapse="+"))),data=dat)

垃圾测试表明，它能够创建动态模型（尽管需要在其他方面进行一些调整）：

用户界面

library(shiny)

shinyUI(pageWithSidebar(
  headerPanel("Test Shiny App"),

  sidebarPanel(
    selectInput("dependent", "Dependent Variable:", c("x","y","z")),
    uiOutput("independent")
  ),

  mainPanel(tableOutput("regTab"))
))

服务器

library(shiny)

dat <- data.frame(x=rnorm(100),y=rnorm(100),z=rnorm(100))

shinyServer(function(input, output, session) {

  output$independent <- renderUI({
    checkboxGroupInput("independent", "Independent Variables:",names(dat)[!names(dat) %in% input$dependent],names(dat)[!names(dat) %in% input$dependent])
  })

  runRegression <- reactive({
    lm(as.formula(paste(input$dependent," ~ ",paste(input$independent,collapse="+"))),data=dat)
  })

  output$regTab <- renderTable({
    if(!is.null(input$independent)){
      summary(runRegression())$coefficients
    } else {
      print(data.frame(Warning="Please select Model Parameters."))
    }
  })

})