shiny（R）のdownloadHandlerを使用してvisNetworkをpngにエクスポートすると、空のファイルが返される

Question

shinyでビルドおよびデプロイされたvisNetworkグラフィックの.pngをエンドユーザがエクスポートできるようにしたいと考えています。私はrenderVisNetworkコードの最後にvisExport行を使ってこれを行うことができますが、出力に生成されるボタンの外観が気に入らず、ボタン自体がエクスポートされた.pngに含まれます.png自体の品質はそれほど素晴らしいものではありません。 UIでdownloadButtonによって生成されたボタンの外観が気に入っていますが、サーバ側でdownloadHandlerと間違っています。ブラウザでは、ダウンロードボタンをクリックしてダウンロードダイアログを開き、ファイルを保存できますが、ファイルは空白です（ファイルサイズは318バイトです）。 .pdfとして試してもうまくいきません。ここに私のコードは次のとおりです。

ui.R：

downloadButton('ConDL', label='Download png') 

server.R：

# Create network 
ConNet <- function(){ 
    visNetwork(Nodes(), Edges()) %>% 
    #all the other stuff to create the network which works fine 
} 

# Draw visualization - works fine 
output$ConNet <- renderVisNetwork({ 
    ConNet() 
})  

# Download png of visualization - no errors displayed in browser or 
# console when testing, but exports blank png 
output$ConDL <- downloadHandler(
    filename="Con.png", 
    content= function(file) { 
     png(file) 
     ConNet() 
     dev.off() 
    } 
) 

私が代わりに反応性の機能を持つオブジェクトを生成についてはこちらのアドバイスに従ってきました： Downloading png from Shiny (R)。前述のConNetに反応する反応を関数に変換することも効果がありませんでした。プレビューペインを実行するのではなく、ブラウザ（Firefox）でアプリを開いています。コンテンツセクションのprint(ConNet())を試しても役に立たないので、私は何が欠けているのか分かりません。

ボーナスネットワークを作成したときに生成されるナビゲーションボタンを除外する.pngを得ることができれば、それらはインタラクティブな部分には便利ですが、静的なグラフィックを乱雑にします。

Answer 1

私はあなたの問題を理解していません。これはあなたを助けることができますdownload network from shiny API