SharedData's selection() method not firing

library(plotly)
library(shiny)
library(crosstalk)

m <- SharedData$new(mtcars)

ui <- fluidPage(
  plotlyOutput("plotID"),
  verbatimTextOutput("brushInfo")
)

server <- function(input, output) {

  output$plotID <- renderPlotly({
    p <- ggplot(m, aes(wt, mpg)) + geom_point()
    highlight(ggplotly(p), "plotly_selected")
  })
  
  output$brushInfo <- renderPrint({
    m$selection()
  })
  
}

shinyApp(ui, server)

Bắt đầu bằng cách chạy ví dụ Shiny được cung cấp và lần theo điểm vào SharedData$selection() cùng với highlight(), plotlyOutput() và renderPlotly(). Hoàn thành khi đầu ra lựa chọn được cập nhật sau khi thực hiện một lựa chọn trên plotly; payload không nêu tên tệp kiểm thử hoặc tệp mã nguồn nào cần chạy.