如何在闪亮的应用程序中打开点击弹出窗口答案

【问题标题】：How to open on click popup window in shiny app如何在闪亮的应用程序中打开点击弹出窗口
【发布时间】：2017-09-28 17:53:04
【问题描述】：

我正在尝试在我闪亮的应用程序中打开一个弹出窗口，以便我可以在弹出窗口中绘制我的图表。所有的操作按钮都应该在点击时打开一个弹出窗口。

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")



           )

  )

)

)

【问题讨论】：

标签： r shiny

【解决方案1】：

您可以使用conditionalPanel 执行此操作，在其中将条件设置为操作按钮的点击次数。例如

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

另一种方法是使用shinyBS::bsModal，它可以为您提供漂亮的用户界面，但需要另一个包。

【讨论】：

你确定会打开一个弹窗吗？