如何在Shiny环境下删除Plotly图表中绘制的矩形？

我可以一键绘制三角形并调整形状，但不知道怎么删除Plotly图表上绘制的矩形。相关代码如下：

library(plotly)

x <- 1:50
y <- rnorm(50)

fig <- plot_ly(x = ~x, y = ~y, type = 'scatter', mode = 'lines')
fig <- config(fig,modeBarButtonsToAdd = list('drawrect'))

fig

操作界面示意图：

删除绘制矩形的两种方法 #

• 手动右键删除：直接右键点击图表上的矩形，选择「Delete Shape」即可删除单个矩形。
• 添加橡皮擦按钮到模式栏：修改代码，在模式栏中加入eraser按钮，支持一键删除单个或所有绘制的形状：

  library(plotly)
  
  x <- 1:50
  y <- rnorm(50)
  
  fig <- plot_ly(x = ~x, y = ~y, type = 'scatter', mode = 'lines')
  # 同时添加绘制矩形和橡皮擦工具
  fig <- config(fig, modeBarButtonsToAdd = list('drawrect', 'eraser'))
  
  fig
  

  点击橡皮擦按钮后，可点击单个矩形删除；按住Shift键点击则可一次性删除所有绘制的形状。

内容的提问来源于stack exchange，提问作者mr.T