闪亮生成一个新点并在点击时删除旧点

Question

我想在用户点击绘图并删除前一个绘图时添加一个点。我的想法是仅使用新点生成一个新绘图，但在生成新绘图时，点击的坐标会立即发生变化。

以下是我正在尝试做的一个简单示例：

library(shiny)
ui <- pageWithSidebar(
  headerPanel("Plot points"),
  sidebarPanel(textOutput("text")),
  mainPanel(plotOutput("points_plot",click="click_p"))
)

server <- function(session, input, output) {

  output$points_plot <- renderPlot({
    plot(5,5)
    points(input$click_p$x,input$click_p$y)
  })

  output$text=renderText({
paste(input$click_p$x,input$click_p$y)  })
}

shinyApp(ui, server)

我如何保持新点的坐标？

或者也许可以使用Leaflet包中的leafletProxy函数？