R闪亮的错误：如何处理两个剧情图的点击事件？

我在闪亮的仪表板中有两个剧情阴谋。当我点击第一个情节图时，交互式事件工作正常。但是当我在第二块图上进行同样的操作时，这个窗口会自动关闭。R闪亮的错误：如何处理两个剧情图的点击事件？

您是否遇到过带有多个阴谋情节的闪亮仪表盘？如果是的话，如何处理不同情节剧情的点击事件？

我准备重复使用的用例。很快我会发布它。

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)

以上代码生成：