R Shiny - 级别 1 没有此类索引

Posted 2023-03-24

【中文标题】R Shiny - 级别 1 没有此类索引

【英文标题】：R Shiny - No Such Index At Level 1

【发布时间】：2015-09-24 06:49:22

【问题描述】：

尝试创建一个闪亮的应用程序，其中有一个情节，并且选定的点创建一个包含所述点的表格。

在定位我的错误来源时遇到了一些困难，但能够将其缩小到这些小部分。

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

作为参考，绘图和表格均按要求显示，但当您选择点时，表格会消失。任何帮助将不胜感激。

【参考方案1】：

您应该发送变量名称而不是数据本身。尝试改变：

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

与：

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

【讨论】：

感谢@Geovany！我从 wt 和 mpg 中删除了 mtcars$，现在可以使用了。