Animated bubble plot - bubble not resizing when selection made via highlight

When creating an animated bubble plot the bubbles in the selection set (made through highlight - plotly_click) do not resize.
Example below is based on example from here https://plotly-r.com/client-side-linking.html

library(plotly)
library(ggplot2)
library(gapminder) 

#modify some pop values to make bubbles stand out more
gapminder$pop = ifelse(gapminder$year > 1982 & gapminder$country =='China', gapminder$pop * 10, gapminder$pop)


g <- highlight_key(gapminder, ~continent)

gg <- ggplot(g, aes(gdpPercap, lifeExp, 
      color = continent, frame = year)) +
      geom_point(aes(size = pop, ids = country)) +
      scale_x_log10()

p_gg <- highlight(ggplotly(gg), "plotly_click")

p_gg

Selecting by clicking on the bubble Not resizing

Expected results

Using Plotly box selection As expected

With no selection

Ví dụ có thể tái lập sử dụng highlight_key(), ggplot(), ggplotly() và highlight(..., "plotly_click"); trước tiên hãy chạy ví dụ đó và so sánh việc chọn bằng cú nhấp với việc chọn bằng hộp. Công việc được xem là hoàn tất khi các bong bóng được chọn thay đổi kích thước nhất quán trong biểu đồ động, trong khi chế độ xem không có lựa chọn và hành vi chọn bằng hộp hiện có vẫn không thay đổi.