光沢のある出力オブジェクトからオブジェクトを読み取ることはできませんか？

Question

私は散布図を作成し、プロット上の点のサブセットを選択し、その選択した点だけを使って.csv形式の表を出力する小さなアプリケーションを作成しようとしています。私はページを起動して実行する方法と、ブラシポイントを使ってポイントを選択する方法を理解しました。選択したポイントのテーブルが表示されますが、ダウンロードボタンを押すと、「shinyoutputオブジェクトからオブジェクトを読み取ることができません」というエラーが表示されます。表示されます。私が目で見ることができるテーブルを.csvファイルとしてダウンロードできませんでしたか？もしそうなら、回避策はありますか？

以下の虹彩データセットを使用して問題を再現しました。表示された行のテーブルをダウンロードできない理由を理解する助けがあれば、大歓迎です。

Answer 1

問題は、出力オブジェクトがすべてのWeb表示オブジェクトも生成していることです。代わりに、ダウンロードのためにデータを個別に取得する必要があります。あなたはダウンロードコードのbrushedPointsへの2回目の呼び出しでそれを行うことができます。しかし、より良いのは、reactive()関数を使用して一度だけ実行し、必要な場所で呼び出すことです。ここで私はその仕事をするためにコードを変更する方法を次のとおりです。

data(iris) 

ui <- basicPage(
    plotOutput("plot1", brush = "plot_brush"), 
    verbatimTextOutput("info"),mainPanel(downloadButton('downloadData', 'Download')) 
) 


server <- function(input, output) { 
    output$plot1 <- renderPlot({ 
    ggplot(iris,aes(x=Sepal.Width,y=Sepal.Length)) + geom_point(aes(color=factor(Species))) + theme_bw() 
    }) 


    selectedData <- reactive({ 
    brushedPoints(iris, input$plot_brush) 
    }) 

    output$info <- renderPrint({ 
    selectedData() 
    }) 

    output$downloadData <- downloadHandler(
    filename = function() { 
     paste('SelectedRows', '.csv', sep='') }, 
    content = function(file) { 
     write.csv(selectedData(), file) 
    } 
) 

} 


shinyApp(ui, server) 

（ggplot2で、明示的brushedPointsにxvarとyvarを設定する必要はありません、注意してくださいので、私はの柔軟性を高めるために、ここでそれを削除しました。コード）

shinyには "lasso"スタイルの無料描画能力はありません（ただし、1週間与える - 楽しいツールを追加しています）。ただし、複数の領域を選択したり、個々の点をクリックしたりすることで、動作を模倣することができます。サーバーのロジックは、繰り返し使用できるように、結果をreactiveValuesオブジェクトに格納する必要があるため、かなり複雑になります。私は1つのプロット上の点を選択し、他のプロット上でそれらをハイライト/除去することを可能にするために同様のことをしました。それはあなたがここで必要とするものより複雑ですが、以下はうまくいくはずです。他のボタンやロジックを追加することもできます（たとえば、選択を「リセット」するなど）が、これはうまくいくはずです。選択したものを表示して、選択したものを追跡できるようにしました。

data(iris) 

ui <- basicPage(
    plotOutput("plot1", brush = "plot_brush", click = "plot_click") 
    , actionButton("toggle", "Toggle Seletion") 
    , verbatimTextOutput("info") 
    , mainPanel(downloadButton('downloadData', 'Download')) 
) 


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

    ggplot(withSelected() 
      , aes(x=Sepal.Width 
       , y=Sepal.Length 
       , color=factor(Species) 
       , shape = Selected)) + 
     geom_point() + 
     scale_shape_manual(
     values = c("FALSE" = 19 
        , "TRUE" = 4) 
     , labels = c("No", "Yes") 
     , name = "Is Selected?" 
    ) + 
     theme_bw() 
    }) 

    # Make a reactive value -- you can set these within other functions 
    vals <- reactiveValues(
    isClicked = rep(FALSE, nrow(iris)) 
) 


    # Add a column to the data to ease plotting 
    # This is really only necessary if you want to show the selected points on the plot 
    withSelected <- reactive({ 
    data.frame(iris 
       , Selected = vals$isClicked) 
    }) 



    # Watch for clicks 
    observeEvent(input$plot_click, { 

    res <- nearPoints(withSelected() 
         , input$plot_click 
         , allRows = TRUE) 

    vals$isClicked <- 
     xor(vals$isClicked 
      , res$selected_) 
    }) 


    # Watch for toggle button clicks 
    observeEvent(input$toggle, { 
    res <- brushedPoints(withSelected() 
         , input$plot_brush 
         , allRows = TRUE) 

    vals$isClicked <- 
     xor(vals$isClicked 
      , res$selected_) 
    }) 

    # pull the data selection here 
    selectedData <- reactive({ 
    iris[vals$isClicked, ] 
    }) 

    output$info <- renderPrint({ 
    selectedData() 
    }) 

    output$downloadData <- downloadHandler(
    filename = function() { 
     paste('SelectedRows', '.csv', sep='') }, 
    content = function(file) { 
     write.csv(selectedData(), file) 
    } 
) 

} 


shinyApp(ui, server)