5

プロットがあり、選択されたポイントがそのポイントを含むテーブルを作成する光沢のあるアプリを作成しようとしています。

エラーの原因を特定するのに苦労しましたが、これらの小さなセクションに絞り込むことができました。

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

参考までに、必要に応じてプロットとテーブルの両方が表示されますが、ポイントを選択するとテーブルが消えます。どんな助けでも大歓迎です。

4

1 に答える 1

2

データ自体ではなく、変数名を送信する必要があります。変更してみてください:

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

と：

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

于 2015-07-07T03:05:49.433 に答える