Shapes/images don't accumulate with multiple calls to layout()

line1 <- list(
  type = "line",
  x0 = 0,
  x1 = 1,
  y0 = 0.5,
  y1 = 0.5,
  xref = "paper",
  yref = "paper",
  line = list(color = "#C3C4C6")
)

line2 <- list(
  type = "line",
  x0 = 0,
  x1 = 1,
  y0 = 0.75,
  y1 = 0.75,
  xref = "paper",
  yref = "paper",
  line = list(color = "#C3C4C6")
)

plotly_empty() %>%
  layout(shapes = line1) %>%
  layout(shapes = line2) 

まず issue の R の例を実行し、2 回目の layout() 呼び出しが最初の形状を蓄積するのではなく置き換えることを確認します。次に、plotly.R パッケージでの layout() の処理を追跡し、その後、連続した呼び出しの後も両方の線形状が残ることを検証します。