Color markers upon hover linked leaflet map highlight()

I am wondering if there is a way to make the highlighted (from hover) dot change color, on both the linked leaflet map as well as the scatter plot? In other words, can the blue dot turn to a red dot, on both map and chart, upon hover?

Thanks!

library(leaflet)

eqs <- highlight_key(quakes)


p <- plot_ly(eqs, x = ~depth, y = ~mag) %>% 
  add_markers(alpha = 0.5) %>% 
  highlight("plotly_hover", opacityDim = .1)

map <- leaflet(eqs) %>% 
  addTiles() %>% 
  addCircles(opacity = 1)

bscols(
  widths = c(6, 6), 
  p, map
)

Start with the provided R example using highlight(), add_markers(), leaflet(), addCircles(), and bscols(). Read the existing linked plotly and leaflet highlight behavior, then define whether hover state can synchronize marker colors in both views; done means the hovered point changes color on the scatter plot and map.