我在一个闪亮的 Jmeter 板上有两个plotly情节。当我点击第一个plotly情节，互动事件是工作正常。但是当我对第二个图（堆叠条形图）执行相同的操作时，窗口将自动关闭。
你有没有遇到过闪亮的 Jmeter 板与一个以上的plotly情节？如果是，如何处理不同地块上的点击事件？

• 我正在准备可重复的用例。我很快就会发布的 *

library(shinydashboard)
library(plotly)
library(shiny)
library(dplyr)
library(ggplot2)

tg <- ToothGrowth
tg$dose <- factor(tg$dose)

skin <- Sys.getenv("DASHBOARD_SKIN")
skin <- tolower(skin)
if (skin == "")
  skin <- "blue"

sidebar <- dashboardSidebar(
  sidebarSearchForm(label = "Search...", "searchText", "searchButton"),
  sidebarMenu(
    menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard"))
  )
)

body <- dashboardBody(
  tabItems(
    tabItem("dashboard",
            fluidRow(
              box(
                title = "Distribution",
                status = "primary",
                plotlyOutput("plot1", height = "auto"),
                height = 500,
                width = 7
              ),
              box(
                height = 500, width = 5,
                title = "Dist",
                         plotlyOutput("click", height = 430)

              )
            )
  )
))

header <- dashboardHeader(
  title = "My Dashboard"
)

ui <- dashboardPage(header, sidebar, body, skin = skin)

server <- function(input, output, session) {

  output$plot1 <- renderPlotly({

    p <- ggplot(data = tg, aes(x=len, y=dose, col=supp, key=supp)) + geom_point()
    ggplotly(p)

  })

  output$click <- renderPlotly({
    d <- event_data("plotly_click")
    if (is.null(d)){
      "Click events appear here (double-click to clear)"
    } else {

      gSel <- tg %>% filter(dose %in% d$y) %>% group_by(supp) %>%  mutate(newLen=floor(len)) %>% 
        ggplot(aes(x=supp, fill=as.factor(newLen))) + geom_bar()
      ggplotly(gSel)

    }
  })

}

shinyApp(ui, server)

上面的代码产生：

**如何避免上图中的可用错误？**打印输出区域中的文本打印。

第一个图用于迭代点击事件。当我单击y=1上的一个点时，它会生成第二个图

但是当我点击堆叠栏时，第二个图就不见了（在我最初的场景中，窗口关闭并且不可见。要使用该应用程序，我需要重新运行该应用程序）。

如何接收点击事件并检查它是来自第一个图还是第二个图？