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()

Bắt đầu với ví dụ R có thể tái lập được cung cấp trên trang bars and histograms của plotly-r.com, tập trung vào add_annotations() khi x và y bị bỏ qua, cùng với lời gọi subplot() bao quanh. Theo dõi cách các điểm vào này xử lý việc thiếu tọa độ chú thích. Hoàn thành khi ví dụ không còn làm RStudio bị crash khi x và y không có.