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

Führe das bereitgestellte plotly-R-Beispiel mit einem konstanten col-Wert und einem Titel für die colorbar aus und vergleiche es anschließend mit den Versionen, in denen der Titel weggelassen wird oder col variiert. Verfolge das Verhalten der Farblegende und des colorbar-Titels und betrachte das Issue als erledigt, wenn das Scatterplot mit konstantem Wert den Titel korrekt rendert, ohne die Legende zu beeinträchtigen.