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

Esegui l'esempio plotly R fornito con un valore col costante e un titolo per la colorbar, quindi confrontalo con le versioni in cui il titolo viene omesso o col varia. Traccia il comportamento della legenda dei colori e del titolo della colorbar, e considera concluso l'issue quando lo scatterplot con valore costante visualizza correttamente il titolo senza compromettere la legenda.