Wie öffne ich auf Klick-Popup-Fenster in glänzenden App

Question

Ich versuche, ein Popup-Fenster in meiner glänzenden App zu öffnen, so dass ich meine Grafiken im Popup-Fenster plotten kann. Alle Aktionsknöpfe sollten beim Klicken ein Popup öffnen.

ui.r

library(shiny) 

shinyUI(fluidPage(



    fluidRow(align="center", 

      column(8, align="center", offset = 2, 

        textInput("prod_code", label=h3("ANALYTICS"), value = ""), 

        tags$style(type="text/css", "#string { height: 50; width: 100%; text-align:center; font-size: 30;}"), 
        tags$style(type="text/css", "#plot1_dl { width:100; vertical-align:50%}"), 



        actionButton("Twitter_Sentiment_analysis","Twitter Sentiment analysis"), 
        actionButton("Twitter_wordcloud","Twitter WordCloud"), 
        actionButton("Twitter_Heatmap","Twitter Heatmap"), 
        actionButton("Ecommerce_Sentiment","Ecommerce Sentiment"), 
        actionButton("Ecommerce_Reviews","Ecommerce Reviews"), 




        textOutput("userenteredquery") 



      ) 

) 

) 

) 

Answer 1

Sie können dies tun, mit conditionalPanel, in dem Sie den Zustand der Anzahl der Klicks auf Ihre Aktion Schaltfläche. ZB

conditionalPanel(
    condition = "input.Twitter_Sentiment_analysis % 2 == 1", 
    absolutePanel(
    left = 10, 
    top = 10, 
    width = 800, 
    plotOutput("Twitter_Sentiment_analysis_plot") 
) 
) 

Eine Alternative wäre shinyBS::bsModal zu verwenden, die Ihnen eine schöne Benutzeroberfläche gibt aber erfordert ein anderes Paket.