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

Ejecuta el ejemplo proporcionado de plotly R con un valor constante de col y un título para la colorbar; después, compáralo con las versiones en las que se omite el título o col varía. Rastrea el comportamiento de la leyenda de colores y del título de la colorbar, y considera resuelto el issue cuando el scatterplot con valor constante renderice correctamente el título sin romper la leyenda.