R类型＆＃39;关闭＆＃39;不是子集

Question

我是新手。 当我运行这些代码时：

用户界面：

library(shiny)

shinyUI(pageWithSidebar(
  headerPanel("Hi"),
   sidebarPanel(selectInput('variable','parameter:',list('mipigi'='mpg',"cylender"='cyl',"displacement"='disp',"horsepower"='hp'))
  ),

  mainPanel(
   h3(textOutput("caption")),
   plotOutput("histo")

   )
  ))

服务器：

library(shiny)
library(datasets)

shinyServer(function(input,output){
formulaText <- reactive({
paste("qsec~", input$variable)
 })
output$caption <- renderText({
formulaText()
 })
output$histo<-renderPlot({
 plot(as.formula(formulaText),mtcars)

  })
 }
) 

当我运行它时，我收到错误：

错误：类型＆＃39;关闭的对象＆＃39;不是子集表格

Answer 1

在你的情节中打电话给它。

plot(as.formula(formulaText()),mtcars)