如何在删除最后一个跟踪时添加新跟踪？

Question

我是新来的闪亮和阴谋。我要做的是先添加一个跟踪，然后我希望每次单击按钮时都将其替换为新跟踪。

这是我的最小示例：

library(shiny)
library(plotly)

ui <- fluidPage(plotlyOutput("fig1"),
                
                numericInput("A",
                             label = h5("A"),
                             value = "",
                             width = "100px"),
                numericInput("B",
                             label = h5("B"),
                             value = "",
                             width = "100px"),
                actionButton("action3", label = "Add to plot"),
                actionButton("action4", label = "Remove point")
                
                
                )
server <- function(input, output) {
  
  
  A <- 1:5
  B <- c(115, 406, 1320, 179, 440)
  data <- data.frame(A, B)
  
  fig <- plot_ly(data, x = A, y = B, type = 'scatter', mode = 'markers')
  
  output$fig1 <- renderPlotly(fig)
  
  observeEvent(input$action3, {
    vals <- reactiveValues(A = input$A, B = input$B)
    plotlyProxy("fig1") %>%
      plotlyProxyInvoke("addTraces", 
                        list(x = c(vals$A,vals$A),
                             y = c(vals$B,vals$B),
                             type = "scatter",
                             mode = "markers"
                             
                        )
      )
  })
  observeEvent(input$action4, {
    vals <- reactiveValues(A = input$A, B = input$B)
    plotlyProxy("fig1") %>%
      plotlyProxyInvoke("deleteTraces")
  })
}

shinyApp(ui,server)

我可以轻松地添加新的轨迹，但它们都保留在图上。 我的解决方案是添加一个新按钮来删除跟踪，但它不起作用。 我已经阅读了this，但我无法让它工作。

Answer 1

根据您的描述，听起来您想在按下按钮的同时添加跟踪并删除最近添加的跟踪。这仍然会留下您开始使用的原始图/轨迹。

我试着简化了一下。第一个 plotlyProxyInvoke 将删除最近添加的跟踪（它是零索引，保留第一个 plotly 跟踪）。

第二个plotlyProxyInvoke 将添加新的跟踪。请注意，基于this answer 包含两次 (x, y) 对。

library(shiny)
library(plotly)

A <- 1:5
B <- c(115, 406, 1320, 179, 440)
data <- data.frame(A, B)

ui <- fluidPage(plotlyOutput("fig1"),
                numericInput("A",
                             label = h5("A"),
                             value = "",
                             width = "100px"),
                numericInput("B",
                             label = h5("B"),
                             value = "",
                             width = "100px"),
                actionButton("action3", label = "Add to plot"),
)

server <- function(input, output, session) {
  
  fig <- plot_ly(data, x = A, y = B, type = 'scatter', mode = 'markers')
  
  output$fig1 <- renderPlotly(fig)
  
  observeEvent(input$action3, {
    plotlyProxy("fig1", session) %>%
      plotlyProxyInvoke("deleteTraces", list(as.integer(1)))
    plotlyProxy("fig1", session) %>%
      plotlyProxyInvoke("addTraces", 
                        list(x = c(input$A, input$A),
                             y = c(input$B, input$B),
                             type = 'scatter',
                             mode = 'markers')
      )
  })
  
}

shinyApp(ui,server)