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.

Inizia riproducendo l’esempio R fornito con ggplotly() e scale_fill_viridis_d(), usando sia l’estetica colour sia l’estetica fill. Segui la conversion a partire da quel punto di ingresso per identificare perché più estetiche causano l’errore, quindi verifica che l’esempio funzioni mentre i casi con una singola estetica e con scale separate continuano a essere supportati.