Error bars (using error_y) are no longer positioned correctly when missing data is present

Error bars (using error_y) are no longer positioned correctly when missing data is present using the barplot plot type. Plotly version 4.10.1.

Reproducible example:

library(plotly)
library(plyr)

data_mean <- ddply(ToothGrowth, c("supp", "dose"), summarise, length = mean(len))
data_sd <- ddply(ToothGrowth, c("supp", "dose"), summarise, length = sd(len))
data <- data.frame(data_mean, data_sd$length)
data <- rename(data, c("data_sd.length" = "sd"))
data$dose <- as.factor(data$dose)

data[1, "length"] <- NA # adding missing data
data[1, "sd"] <- NA # adding missing data

fig <- plot_ly(data = data[which(data$supp == 'OJ'),], x = ~dose, y = ~length, type = 'bar', name = 'OJ',
               error_y = ~list(array = sd,
                               color = '#000000'))
fig <- fig %>% add_trace(data = data[which(data$supp == 'VC'),], name = 'VC')

fig

まず plotly 4.10.1 で再現可能な R の例を実行し、最初に欠損値あり、次に欠損値なしで実行して、エラーバーの位置の変更を切り分けます。OJ と VC のトレースについて棒とエラーバーの位置を比較します。欠損データが存在する場合でもエラーバーが対応する棒と揃ったままになれば完了です。