Синхронизация двух карт листовок в R / Rmarkdown

JS листовка позволяетдве карты для синхронизации, Смотрите пример синхронизированных листовокВот.

Я хотел бы реализовать синхронизированные карты листовок вR и более конкретно вRmarkdown/knitr.

Предпочтительно, карты должны показываться рядом друг с другом горизонтально (как впример).

Вот минимальная Rmarkdown (.Rmd) Пример двух карт, которые я хотел бы синхронизировать. Решение не должно основываться наmapview пакет. Любое решение действительно приветствуется (-:

---
title: "How to sync 2 leaflet maps"
author: "me"
date: "2 April 2016"
output: html_document
---

```{r SETUP, include=FALSE}
library("mapview")
library("sp")

# load example data
data(meuse)
coordinates(meuse) <- ~x+y
proj4string(meuse) <- CRS("+init=epsg:28992")
```

```{r MAPS}
mapView(meuse, zcol="copper")@map # MAP 1
mapview(meuse, zcol="soil")@map # MAP 2
```