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.

Bắt đầu bằng cách tái hiện ví dụ R được cung cấp bằng ggplotly() và scale_fill_viridis_d(), sử dụng cả hai aesthetics colour và fill. Theo dõi quá trình chuyển đổi từ điểm truy cập đó để xác định tại sao nhiều aesthetics gây ra lỗi, sau đó xác minh rằng ví dụ hoạt động trong khi các trường hợp chỉ có một aesthetic và các trường hợp dùng scale riêng biệt vẫn được hỗ trợ.