Colour legend is broken in scatterplot where only one value exists and a colorbar title is provided

Example:

library(plotly)
df <- data.frame(x = 1:5, y = 1:5, col = c(1,1,1,1,1))
plot_ly(df, x = ~x, y = ~y, color = ~col) %>%
    add_markers(marker = list(colorbar = list(title = "test")))

Result:

If any of the col values changes and it is no longer only 1's, then it works as expected. Also, if the title parameter is omitted, it also works as expected.

Here's the result when I omit the title:

This is using plotly 4.8.0 - latest on CRAN

Chạy ví dụ plotly R được cung cấp với giá trị col không đổi và tiêu đề colorbar, sau đó so sánh với các phiên bản trong đó tiêu đề bị bỏ qua hoặc col thay đổi. Theo dõi hành vi của chú giải màu và tiêu đề colorbar, và coi issue là hoàn tất khi scatterplot có giá trị không đổi hiển thị tiêu đề chính xác mà không làm hỏng chú giải.