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

提供された plotly R の例を、col の値を一定にし、colorbar のタイトルを指定して実行し、その後、タイトルを省略した場合や col が変化する場合のバージョンと比較します。カラーレジェンドと colorbar のタイトルの挙動を追跡し、一定値の scatterplot がレジェンドを壊すことなくタイトルを正しく表示できれば、issue 完了とします。