Я продолжаю получать ошибку в моем блестящем приложении для линейной регрессии? - PullRequest
Новая
       11

Я продолжаю получать ошибку в моем блестящем приложении для линейной регрессии?

0 голосов
/ 27 марта 2019

Я пытаюсь создать блестящее приложение, и я не могу найти ошибку в своем коде.

Я продолжаю получать эту ошибку здесь:

Ошибка в 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)

1 Ответ

0 голосов
/ 27 марта 2019

Вы поместили некоторые скобки в конец кода своего пользовательского интерфейса и попытались использовать mainPanel= вместо правильного mainPanel(. Приведенный ниже код пользовательского интерфейса устраняет ошибку и загружает ваше приложение. 

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 на боковой панели или на главной панели, и в этом случае вам нужно будет переместить его вниз.

...