subplot crashes if add_annotation lacks x and y arguments

If I create subplots that use add_annotation and don't pass in values for x and y, subplot crashes RStudio.

Using the example from https://plotly-r.com/bars-histograms.html#multiple-numeric-distributions, the original code works fine. The version below comments out x and y and causes RStudio to crash.

## DO NOT RUN

one_plot <- function(d) {
  plot_ly(d, x = ~price) %>%
    add_histogram() %>%
    add_annotations(
      ~unique(clarity), # x = 0.5, y = 1, 
      xref = "paper", yref = "paper", showarrow = FALSE
    )
}

diamonds %>%
  split(.$clarity) %>%
  lapply(one_plot) %>% 
  subplot(nrows = 2, shareX = TRUE, titleX = FALSE) %>%
  hide_legend()

plotly-r.com の「bars and histograms」ページにある提供済みの再現可能な R 例から始め、x と y を省略した add_annotations() と、その周囲の subplot() 呼び出しに焦点を当てます。これらのエントリポイントが、アノテーションの座標が欠落している場合にどのように処理するかを追跡します。x と y がない場合でも、その例で RStudio がクラッシュしなくなれば完了です。