按下R中的传单弹出窗口时如何创建事件？

Question

当我点击Leaflet多边形时，我想让tabPanel在Shiny中更改。 我有几个关于如何做到这一点的想法，但我找不到实现它们所需的信息。 我在tabPanel中有传单，但是我想在单击多边形时切换到另一个选项卡。

    leaflet(llmap) %>%
      addTiles() %>%
      addPolygons(stroke = F,
                  fillOpacity = .8,
                  smoothFactor = .5,
                  color=~pal(x),
                  popup = pop)

我想过制作popup=updateTabsetPanel(session="New Tab") ，但这不起作用。 我的另一个想法是在用户点击一个新的多边形的时候调用updateTabsetPanel(session="New Tab") ，但我不知道我需要返回什么事件让它知道点击了一个新的多边形，甚至是弹出一个新的弹出窗口。 有谁知道这个？

Answer 1

以下是单击多边形时更新的反应函数的示例：

output$myMap <- renderLeaflet({
    map_out() #this is just a function that returns a leaflet map
  })


output$MyGraph <- renderPlot({  
    event <- input$myMap_shape_click #Critical Line!!!

    ... #Code to run here

    GraphData <- GraphData[event$id] # subsetting example

    }
  })  

这里有几点需要注意：

1. input$myMap_shape_click会根据您在上面调用的地图进行更改。 我称之为myMap ，所以结构如图所示。 如果您使用output$YourMap进行初始化，则会使用input$YourMap_shape_click调用单击

2. 您可以使用event$id访问您单击的多边形的event$id 。 这对于基于单击的多边形进行子集化+图形化非常有用。 也可以访问event$lat和event$lng

3. renderPlot可以是任何反应函数。 如果它不依赖于特定输出，您可以使用如下的observe 。 这样，只要单击多边形，您的代码就会运行。 这是因为每次单击时input$myMap_shape_click的值input$myMap_shape_click更改。

我之前没有使用updateTabsetPanel ，但我想这会有效：

observe({

  event <- input$myMap_shape_click

  updateTabsetPanel(session, "inTabset", selected = event$id)

}) 

这会将标签切换到与您单击的多边形具有相同ID的面板。