Shiny: Solicitud: plotOutput: una forma de diferenciar entre clic y pincel

_Publicado originalmente en el brillante grupo de Google _

Si quiero tener un gráfico en mi aplicación brillante en el que el usuario pueda hacer clic o elegir ciertas regiones, usaré los argumentos click y brush de plotOutput . Sin embargo, cuando se inicia un pincel, también se llama al controlador de clics. En algunos casos, puede ser útil saber cuándo se hace un clic y cuándo se hace un pincel, pero si un clic es parte de un pincel, entonces quiero ignorarlo.

Ejemplo: en la siguiente aplicación, si solo se cepilla (haga clic en algunos
k en algún lugar y arrastre el mouse), obtendrá un mensaje de "clic" así como un mensaje de "pincel". Solo quiero recibir el mensaje "pincel" en ese caso.

library(shiny)
library(ggplot2)
runApp(shinyApp(
  ui = fluidPage(
    plotOutput("plot", click = "click", brush = "brush")
  ),
  server = function(input, output, session) {
    output$plot <- renderPlot({
      ggplot(mtcars, aes(wt, mpg)) + geom_point()
    })
    observeEvent(input$click, {
      cat("clicked\n")
    })
    observeEvent(input$brush, {
      cat("brushed\n")
    })
  }
))

Noté que el evento de clic se activa al presionar el mouse. Si está de acuerdo con mi comportamiento propuesto de no disparar un clic cuando se hace un pincel, tal vez una posible solución sería cambiar el disparador para que esté en mouse up y, cuando suceda, comprobar si se hizo un pincel.