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

Exécutez l’exemple plotly R fourni avec une valeur col constante et un titre de colorbar, puis comparez-le aux versions dans lesquelles le titre est omis ou col varie. Suivez le comportement de la légende de couleurs et du titre de la colorbar, et considérez l’issue comme terminée lorsque le nuage de points à valeur constante affiche correctement le titre sans casser la légende.