R Shiny - нет такого индекса на уровне 1

Question

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

Сложно найти источник моей ошибки, но смогли сузить его до этой небольшой секции.

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 

Для справки, как сюжет и таблицы отображаются как требуется, но когда вы идете, чтобы выбрать пункты таблицы исчезает. Любая помощь будет принята с благодарностью.

Answer 1

Вы должны отправить имена переменных вместо самих данных. Попробуйте изменить:

brushedPoints(mtcars,input$plot_brush,mtcars$wt,mtcars$mpg)

с:

brushedPoints(mtcars,input$plot_brush,"wt","mpg")