Multiple aestetics in scale_*_virids_d() not supported

I tried to convert the following (simplified) ggplot2 object into a plotly object:

library(ggplot2)
library(plotly)

plot <- ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Species, fill = Species)) + 
  geom_point() + 
  scale_fill_viridis_d(option = "viridis", aesthetics = c("colour", "fill"))

Using ggplotly(plot) throws the error

Error in [[<-(*tmp*, sc$aesthetics, value = sc) : no such index at level 1

Separating the aesthetics works fine as does specifying only one argument in the "aesthetic" argument or writing a line for each aesthetic.

まず、colour と fill の両方の aesthetics を使用して、提供された R の例を ggplotly() と scale_fill_viridis_d() で再現します。そのエントリーポイントから変換を追跡し、複数の aesthetics がエラーを引き起こす理由を特定したうえで、single-aesthetic のケースと個別の scale のケースが引き続きサポートされる状態で、例が動作することを確認します。