小编Jdv*_*Jdv的帖子

我有一个应用程序，它使用plot_click 功能在图表上绘制点并创建一个表来跟踪每个点的坐标。作为应用程序的一部分，我有一个删除按钮，用户可以根据需要删除选定的行。如果删除一行，则绘图会更新。

我在表格中添加了一列可编辑的列，以便用户可以编写注释。我遇到的问题是，当我删除一行时，其他单元格上添加的注释也会消失。

我相信我必须使用 input$mytable_cell_edit 更新删除事件，并可能为单元格编辑创建另一个事件，但不知道如何执行此操作。

下面的示例代码

library(shiny)
library(tidyverse)
library(DT)


#UI
ui <- basicPage(
  column(width = 3, plotOutput("plot", click = "plot_click", width = "350px", height="700px")),
  column(width = 9, DTOutput("mytable")),
  actionButton("remove", "remove")
  
)


#server
server <- function(input, output) {
  
  
  #click inputs
  val <- reactiveValues(
    clickx = numeric(), 
    clicky = numeric(), 
    shape= 2, 
    id = numeric(),
    id_total = 0
  )
  
  mytable <- reactive(
    data.frame(`Location X` = round(val$clickx,2), 
               `Location Y` = round(val$clicky,2),
               ID = val$id)
  )
  
  #bind clicks
  observeEvent(input$plot_click, {
    val$clickx = c(val$clickx, …