shiny - 如何在 R ShinyDashBoard 中使用 OnClick 操作按钮

Question

我正在使用 R 和闪亮的仪表板对 Twitter 数据进行情绪分析。我已经绘制了正面、负面和中性推文的百分比值框。

valueBoxOutput("positivePercent",width = 3)

output$positivePercent <- renderValueBox({

    positivePercent <- round((nrow(positive)*100)/total)

    valueBox(
      value = paste(positivePercent, "%"),
      subtitle = "Positive", 
      color = "green",
      icon = icon("thumbs-up")
    )
  })

我已经展示了哪些是积极的推文使用

tabItem(tabName = "pTweets",
      h2(HTML("<center><b><span style='color: green'>Positive</span> Tweets <i></i></b></center>")),

      tableOutput("positivitweets")

现在，我想当我单击该百分比值框时，它应该在该框下方显示积极的推文。

我对 HTML 和 JAVASCRIPT 完全陌生，开始学习。