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.

Commencez par reproduire l’exemple R fourni avec ggplotly() et scale_fill_viridis_d(), en utilisant à la fois les esthétiques colour et fill. Suivez la conversion depuis ce point d’entrée afin d’identifier pourquoi plusieurs esthétiques provoquent l’erreur, puis vérifiez que l’exemple fonctionne tout en conservant la prise en charge des cas à esthétique unique et à échelles séparées.