我的闪亮应用程序中出现线性回归的错误？

Question

我正在尝试创建一个闪亮的应用程序，我似乎无法在我的代码中找到错误。

我一直在这里得到这个错误：

match.arg（position）中的错误：'arg'必须为NULL或字符向量

我也不确定输入应该是什么。

library(shiny)

# Define UI for application that draws a histogram
ui <- fluidPage(

    titlePanel("Linear Regression Shiny App"),
    sidebarLayout(
        sidebarPanel(
            h1("Linear Regression"),

            p("Select inputs for the Response
       Variable"),
            selectInput("ResVar",
                        "Response Variables:",
                        c("","","")
            ),

            p("Select inputs for the Predictor
       Variable"),
            selectInput("PreVar",
                       "Predictor Variables:",
                        c("","","")
            ),

            actionButton("goButton","Go!"),
            plotOutput("distPlot")),

        mainPanel = 
            verbatimTextOutput("ResVarPrint"),
        verbatimTextOutput("PreVarPrint")
    ))


# Define server logic required to draw a histogram
server <- function(ResVar,PreVar) {

    lm1 <- reactive({reformulate((input$ResVar),(input$PreVar))})

    output$ResPrint <- renderPrint({input$ResVar})
    output$PrePrint <- renderPrint({input$PreVar})
    output$RegSum <- renderPrint({summary(lm1())})


}


# Run the application 
shinyApp(ui = ui, server = server)

Answer 1

您在UI代码的末尾附近错放了一些括号，并尝试使用mainPanel=而不是正确的mainPanel(。下面的UI代码解决了错误并让您的应用加载。

ui <- fluidPage(

  titlePanel("Linear Regression Shiny App"),
  sidebarLayout(
    sidebarPanel(
      h1("Linear Regression"),

      p("Select inputs for the Response
        Variable"),
      selectInput("ResVar",
                  "Response Variables:",
                  c("","","")
      ),

      p("Select inputs for the Predictor
        Variable"),
      selectInput("PreVar",
                  "Predictor Variables:",
                  c("","","")
      ),

      actionButton("goButton","Go!"),
      plotOutput("distPlot")
    ),
    mainPanel(
      verbatimTextOutput("ResVarPrint"),
      verbatimTextOutput("PreVarPrint")
      )
  )
)

但是，您可能需要考虑是否确实需要在侧栏中使用plotOutput，或者是否需要在主面板中使用qazxswpoi，在这种情况下，您需要将其向下移动。