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

再現可能な例では、highlight_key()、ggplot()、ggplotly()、および highlight(..., "plotly_click") を使用しています。まずこれを実行し、クリック選択とボックス選択を比較してください。アニメーション付きプロットで選択されたバブルのサイズが一貫して変化し、選択されていない状態の表示と既存のボックス選択の動作が変更されないことをもって完了とします。