尝试创建一个闪亮的应用程序,其中有一个情节和选定的点创建一个表格与所述点.
找到我的错误来源有困难,但已经能够缩小到这些小部分.
library(ggplot2)
library(DT)
ui <- shinyUI(fluidPage(
fluidRow(uiOutput("plotui")),
fluidRow(dataTableOutput("plot_brushed_points"))
))
server <- shinyServer(function(input, output){
output$plot <- renderPlot(plot(mtcars$wt,mtcars$mpg))
output$plotui <- renderUI(plotOutput("plot",brush = brushOpts("plot_brush")))
output$plot_brushed_points <- renderDataTable(brushedPoints(mtcars,input$plot_brush,mtcars$wt,mtcars$mpg))
})
myapp <- shinyApp(ui, server)
myapp
我收到的错误如下:
Error in .subset2(x, i, exact = exact) : no such index at level 1
作为参考,绘图和表格都按要求显示,但当您选择点时,表格会消失.任何帮助将不胜感激.
最佳答案 您应该发送变量名而不是数据本身.尝试改变:
brushedPoints(mtcars,输入$plot_brush,mtcars $重量,mtcars $MPG)
有:
brushedPoints(mtcars,输入$plot_brush, “重量”, “MPG”)