闪亮：刷新情节添加新点

Question

我有一个波浪图，我需要识别曲线中的每个峰值：

我想做以下事情：

无意中将点添加到图中我点击以标记每个峰的存在。

ui.R
plotOutput("plot1", click = "plot_click")

server.R
output$plot1 <- renderPlot({
  plot(x,y)
  points(x=input$plot_click$x,y=input$plot_click$y)
})

这里的问题是，尽管'plot_click'机制识别了点的x和y位置 - 'points（）'命令只会导致点暂时出现然后消失。

我也尝试过reactivePlot，但这返回了错误：

could not find function "func"

Answer 1

对它进行排序。基于上一篇文章的帮助：avoid double refresh of plot in shiny

library(shiny)
ui <- basicPage(
  actionButton("submit","submit"),
  plotOutput("plot1", click = "plot_click"),
  verbatimTextOutput("info"),
  tableOutput('table')
)

server <- function(input, output) {
  click_saved <- reactiveValues(singleclick = NULL)
  observeEvent(eventExpr = input$plot_click, handlerExpr = { click_saved$singleclick <- input$plot_click })
  rv=reactiveValues(m=data.frame(x=0,y=0))
  output$plot1 <- renderPlot({
    plot(x,y, type='l')
    points(rv$m$x[-1],rv$m$y[-1])
  })

  output$info <- renderText({
    paste0(unlist(click_saved$singleclick))
  })


  observeEvent(input$submit, {
    if (input$submit > 0) {
      rv$m <- rbind(rv$m,unlist(click_saved$singleclick))
    }
  })

  output$table <- renderTable({
    if (is.null(rv$m)) {return()}
    print(rv$m)
  }, 'include.rownames' = FALSE
  , 'include.colnames' = TRUE
  )

}

shinyApp(ui, server)