r - R のリーフレットの円にマウスを合わせるとポリラインを表示する

Question

私はフローマップを持っています-Rでリーフレットを使用しています

library(leaflet)
m <- leaflet(AM_Peak) %>% 
addTiles('http://{s}.basemaps.cartocdn.com/dark_all/{z}/{x}/{y}.png',
attribution='Map tiles by <a href="http://stamen.com">Stamen Design</a>, 
<a href="http://creativecommons.org/licenses/by/3.0">CC BY 3.0</a> &mdash; Map data &copy; <a href="http://www.openstreetmap.org/copyright">OpenStreetMap</a>') %>%
setView(103.831959, 1.360270, zoom = 11) %>% 
addCircles(~x_AM_Peak$Entry_Station_Long, ~x_AM_Peak$Entry_Station_Lat,
weight =x_AM_Peak$radius, radius=40, 
label = ~as.character(x_AM_Peak$Entry_Station),color="#ffa500", stroke = TRUE, fillOpacity = 0.8) %>%
    addPolylines(data = y_AM_Peak,
                 stroke = TRUE,color = "#6eff2a", weight = 0.2, opacity = 0.2,
                 fill = FALSE, fillOpacity = 0.1, dashArray = NULL,
                 smoothFactor = 1)

このようなもの

私がやろうとしているのは - デフォルトでは、マップにはすべての円が含まれている必要があります - 円のポイントにカーソルを合わせると、その円から始まるすべてのポリラインのみが表示されます (リンクに示すように)。