Question

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

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

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

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

另一种方法是使用shinyBS::bsModal，它为您提供了一个不错的用户界面，但需要另一个包。

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

1 个答案: