javascript - R在绘图选择重置后删除标记的矩形

Question

我使用@shosaco solution from here在 plotly 中重置选择:

library(shiny)
library(plotly)
library(shinyjs)
library(V8)

ui <- shinyUI(
  fluidPage(
    useShinyjs(),
    extendShinyjs(text = "shinyjs.resetClick = function() { Shiny.onInputChange('.clientValue-plotly_selected-A', 'null'); }"),
    actionButton("reset", "Reset plotly click value"),
    plotlyOutput("plot"),
    verbatimTextOutput("clickevent")
  )
)

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

  output$plot <- renderPlotly({
    plot_ly(mtcars, x=~cyl, y=~mpg)
  })

  output$clickevent <- renderPrint({
    event_data("plotly_selected")
  })

  observeEvent(input$reset, {
    js$resetClick()
  })
})

shinyApp(ui, server)

它适用于重置数据但不重置标记的矩形:

你有什么想法可以去掉那个矩形吗？

Answer 1

回答有点晚了，但由于我刚才遇到了同样的问题，所以我想我应该在这里发布我的解决方案。您可以通过以下方式重置选择:

Plotly.restyle(plot, {selectedpoints: [null]});

将其添加到 extendShinyjs 调用将取消选择点并删除矩形，所以像这样:

extendShinyjs(
  text = "shinyjs.resetClick = function() { 
    Shiny.onInputChange('.clientValue-plotly_selected-A', 'null'); 
    Plotly.restyle('plot', {selectedpoints: [null]});
  }"
),