geom_errorbar does not take "size" aesthetics

It seems ggplotly returns the same plot with different size. Here is an example:

df <- data.frame(x = 1:10,
                 y = 1:10,
                 ymin = (1:10) - runif(10),
                 ymax = (1:10) + runif(10),
                 xmin = (1:10) - runif(10),
                 xmax = (1:10) + runif(10))

p <- ggplot(df)+
  geom_errorbar(aes(ymin = ymin, ymax = ymax, x = x, y = y), size = 10)


ggplotly(p)

まず、提供されている R の例を ggplotly で実行し、異なる size 値に対する geom_errorbar のレンダリング結果を比較します。geom_errorbar 用の ggplotly 変換のエントリポイントを追跡し、size の aesthetic が失われる箇所を特定します。レンダリングされたエラーバーが size に応じて目に見えて変化し、その動作が回帰テストでカバーされれば完了です。