R Shiny error：如何处理两个情节图中的点击事件？

Question

我在闪亮的仪表板上有两个阴谋图。 当我点击第一个情节图时，互动事件正常。 但是当我在第二个绘图上执行相同的操作时，这是一个堆叠的条形图，窗口会自动关闭。

您是否遇到过具有多个阴谋图的闪亮仪表板？ 如果是，如何处理不同情节图上的点击事件？

---

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

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上的一个点时，它会产生第二个图

但是当我点击堆积的条形图时，第二个图形将丢失（在我的原始场景中，窗口关闭且不可见。要使用该应用程序，我需要重新运行该应用程序）。

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

Answer 1

我也使用plotly_click事件，而这样做的方法是在图中添加一个源参数

p <- plot_ly(source = paste('plotlyplot', plot.list, sep = ''))

并观察点击事件并在那里分配数据

observeEvent(event_data("plotly_click", source = "plot1"), { 
     values$plot.click.results <- event_data("plotly_click", source = "plot1") 
})

对于您的场景，根据第一个绘图中的点击事件渲染第二个绘图：如果您尝试在点击事件数据为零时渲染绘图，并且您在示例中尝试绘制文本消息，则R可以不用文字制作情节。 而是以这样的方式构建它：如果click事件数据为NULL，则输出为renderText，如果不是NULL则为renderPlotly

Answer 2

仅针对错误抑制问题： - 在您的ui部分输入此内容

tags$style(type="text/css",
         ".shiny-output-error { visibility: hidden; }",
         ".shiny-output-error:before { visibility: hidden; }"

）

对于图形问题。 我有同样的