L'exportation de visNetwork vers png avec downloadHandler dans Shiny (R) donne un fichier vide

Question

J'aimerais que les utilisateurs finaux puissent exporter un fichier .png d'un graphique visNetwork construit et déployé avec Shiny. Je suis en mesure de le faire en utilisant une ligne visExport à la fin de mon code renderVisNetwork, mais je n'aime pas l'aspect du bouton qui est généré dans la sortie, le bouton lui-même est inclus sur le fichier .png exporté, et la qualité du .png lui-même n'est pas terrible. J'aime l'apparence du bouton généré par downloadButton dans l'interface utilisateur, mais je fais quelque chose de mal avec downloadHandler sur le serveur. En cours d'exécution dans le navigateur, je clique sur le bouton de téléchargement, j'obtiens la boîte de dialogue de téléchargement, et je suis capable de sauvegarder le fichier, mais le fichier est vide (taille du fichier de 318 octets). Essayer en .pdf ne fonctionne pas non plus. Voici mon code:

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() 
    } 
) 

J'ai suivi les conseils donnés ici sur la génération de l'objet avec une fonction au lieu d'un réactif: Downloading png from Shiny (R). Transformer les réactifs précédents qui alimentent ConNet en fonctions était également inefficace. J'ai l'application ouverte dans un navigateur (Firefox) plutôt que de parcourir le volet de prévisualisation. Essayer print(ConNet()) dans la section de contenu n'aide pas non plus, donc je ne suis pas sûr de ce que je manque.

Bonus si je peux obtenir le .png pour exclure les boutons de navigation produits avec visInteraction lorsque je crée le réseau - ils sont utiles pour la partie interactive, mais encombrent un graphique statique.

Answer 1

Je ne comprends pas votre problème. Cela pourrait vous aider à download network from shiny API