r - 使用 Shiny 在 Markdown 中的不同选项卡上同步两个传单 map

Question

在不同选项卡上同步两个传单 map 时遇到问题。

查看以前的条目 ( Synchronizing two leaflet maps in R / Rmarkdown ) 后，@TimSalabim 提供的解决方案不起作用，因为 map 位于不同的选项卡上。

这是一个 MWE RMarkdown 示例:

---
title: "QuestionforStackOverflow"
output: 
flexdashboard::flex_dashboard:
runtime: shiny
---

```{r setup, include=FALSE}
library(flexdashboard)
library(shiny)
library(leaflet)
```

Tab One
======================================================================
```{r tab1}
output$map1 <-
   renderLeaflet(
    leaflet() %>%
      addProviderTiles("CartoDB.Positron") %>%
      setView(-93.65, 42.0285, zoom = 4)
  )

leafletOutput("map1")

```
Tab Two
======================================================================
```{r tab2}

output$map2 <-
  renderLeaflet(
    leaflet() %>%
      addProviderTiles("CartoDB.Positron") %>%
      setView(-93.65, 42.0285, zoom = 4)
  )

leafletOutput("map2")
```

我想要两种方式的改变。对 map1 的任何 View 更改 -- 更改 map2 或对 map2 的任何更改都将更改 map1。

理想情况下:如果您在 map 1 上滚动到圣路易斯， map 2 将在圣路易斯具有相同的缩放级别。

目前，两张 map 之间没有交互性。有没有办法让它们同步？

Answer 1

您可以使用 leafletProxy()为了这 :
请参阅此处的帮助:https://rstudio.github.io/leaflet/shiny.html

对于您的特定问题，这里有一个想法:

---
  title: "QuestionforStackOverflow"
  output: 
    flexdashboard::flex_dashboard:
  runtime: shiny
---

```{r setup, include=FALSE}
  library(flexdashboard)
  library(shiny)
  library(leaflet)
```

Tab One
======================================================================

```{r tab1}
output$map1 <-
  renderLeaflet(
    leaflet() %>%
      addProviderTiles("CartoDB.Positron") %>%
      setView(-93.65, 42.0285, zoom = 4)
  )

actionButton("syncMap1", "Fit to map2 bounds")
leafletOutput("map1")

observeEvent(input$syncMap1,{
  map2coords <- input$map2_bounds
  map1Proxy <- leafletProxy("map1")
  map1Proxy %>% fitBounds(lng1 = map2coords$east,
                          lat1 = map2coords$north,
                          lng2 = map2coords$west,
                          lat2 = map2coords$south)
})
```

Tab Two
======================================================================

```{r tab2}

output$map2 <-
  renderLeaflet(
    leaflet() %>%
      addProviderTiles("CartoDB.Positron") %>%
      setView(-93.65, 42.0285, zoom = 4)
  )
actionButton("syncMap2", "Fit to map1 bounds")
leafletOutput("map2")

observeEvent(input$syncMap2,{
  map1coords <- input$map1_bounds
  map2Proxy <- leafletProxy("map2")
  map2Proxy %>% fitBounds(lng1 = map1coords$east,
                          lat1 = map1coords$north,
                          lng2 = map1coords$west,
                          lat2 = map1coords$south)
})
```

这个想法是在单击按钮时检索其他 map 的坐标，然后同步 View 。

小问题: View 没有很好地同步:可以更好地找到显示 map 的质心并使用 setView()使用 input$map1_zoom .

主要问题:这意味着使用按钮，这不是用户友好的。
理论上，您可以使用 observe()块以将每个 map 的坐标反射(reflect)到另一个。试过了，它有很多问题，可能是因为一些“无限”循环，因为坐标有微小的变化。