Radiobutton不会在我闪亮的应用程序中运行

Question

我的小闪亮应用程序中有关于Radiobuttons的问题。以mtcars数据库为例，我想绘制＆＃34; mpg＆＃34;作为其他变量的函数（这里只是cyl和disp中的两个）可以选择。

我的代码是：

## Only run examples in interactive R sessions
if (interactive()) {

ui <- fluidPage(
   radioButtons("dist", label = "Distribution type:",
             choices = list ("cyl" = "cyl",
               "disp" = "disp")
               ),
plotOutput("distPlot")
)

server <- function(input, output) {
  output$distPlot <- renderPlot({

  #dist <- switch(input$dist,
  #               cyldata1 = cyl,
  #               dispdata1 = disp
  #               )
  var<- input$dist
   par(mar=c(1,1,1,1))
  plot(mtcars$mpg,mtcars$var)
})
}

shinyApp(ui, server)
}

但问题是当我选择两个不同的cyl和disp变量时，情节不会相应改变。这意味着情节没有对我的选择做出反应。

Answer 1

将情节（mtcars $ mpg，mtcars $ var）替换为情节（mtcars $ mpg，mtcars [[var]]）