Using Shift on event_data("plotly_click") only stores last key

Offen

#1,401 erstellt am 13.11.2018 2 Kommentare 0 Reaktionen 0 zugewiesene Personen Auf GitHub ansehen

Dieses Issue hat noch niemand übernommen.

Bewertung

Schwierigkeit: 4/5
Geschätzter Aufwand: 3-5 Tage
Anfängerfreundlichkeit: 38/100

Issue-Typ: Bug
Klarheit: Größtenteils klar
Aktivitätsstatus: Veraltet
Tech-Stack: javascript, r
Bereich: data-visualization, frontend

Rechercherichtung

Beginne mit der minimalen Shiny-App im Issue und verfolge event_data("plotly_click") zusammen mit highlight() und event_data("plotly_selected"). Vergleiche, wie der Shift-Klick-Status für beide Ereignisse dargestellt wird, und definiere den Abschluss entweder als Rückgabe aller hervorgehobenen Schlüssel für Klick-Ereignisse oder als Dokumentation und Implementierung einer Möglichkeit, Shift für Klicks zu deaktivieren und gleichzeitig das Auswahlverhalten beizubehalten.

Vom Indexierungsmodell aus dem Issue-Text verfasst.

Beschreibung

difficulty: medium enhancement shiny

When using the SHIFT-key on a plotly_click event, it returns only the last clicked key, whereas using SHIFT on plotly_selected stores all selected keys.

Is it possible to adapt the event_data("plotly_click") to be consistent with the highlighting and return all clicked/highlighted elements?

Or can I deactivate SHIFT for click-events alltogether and leave it activated for selection-events?

clickselect

Shiny-App:

library(shiny)
library(ggplot2)
library(plotly)

dfN <- data.frame(
  time_stamp = seq.Date(as.Date("2018-04-01"), as.Date("2018-07-30"), 1),
  val = runif(121, 100,1000),
  col = "green", stringsAsFactors = F
)


ui <- fluidPage(
  plotlyOutput("plot"),
  verbatimTextOutput("clicked"),
  verbatimTextOutput("selection")
)

server <- function(input, output, session) {
  output$plot <- renderPlotly({
    key <- highlight_key(dfN)
    p <- ggplot() +
      geom_col(data = key, aes(x = plotly:::to_milliseconds(time_stamp), y = val, fill=I(col))) +
      theme(legend.position="none")
    
    ggplotly(p, source = "Src") %>% layout(xaxis = list(tickval = NULL, ticktext = NULL, type = "date")) %>% 
      highlight(selectize=F, off = "plotly_doubleclick", on = "plotly_click", color = "blue",
                opacityDim = 0.5, selected = attrs_selected(opacity = 1))
  })
    

  output$clicked <- renderPrint({
    s <- event_data("plotly_click", source = "Src")
    s
  })
  output$selection <- renderPrint({
    s <- event_data("plotly_selected", source = "Src")
    s
  })
}

shinyApp(ui, server)

Vorherrschende Sprache: R
Sterne: 2.7k
Forks: 641
PR-Merge-Kennzahlen: Keine gemergten PRs in 30 T.

Beitragsleitfaden

Beitragsleitfaden öffnen

Erste Schritte

Lesen Sie das ganze Issue und danach den Beitragsleitfaden des Projekts.
Schreiben Sie ins Issue, dass Sie es übernehmen — das erspart doppelte Arbeit.
Forken Sie das Repository und arbeiten Sie in einem Branch.
Öffnen Sie einen Pull Request, der die Issue-Nummer nennt.

Mehr aus plotly/plotly.R

subplot() fails to plot 6 plots in a 2 rows x 4 columns grid Offen

Schwierigkeit 2/5 1-3 Stunden Anfängerfreundlichkeit 62/100

plotly/plotly.R#2400 · 2 Kommentare · Erstellt am 01.11.2024
geom_GeomInteractiveSegment() has yet to be implemented in plotly Offen

Schwierigkeit 4/5 3-5 Tage Anfängerfreundlichkeit 35/100

plotly/plotly.R#2499 · Erstellt am 15.9.2026
libcurl error when using htmlwidgets::saveWidget along with plotly::partial_bundle without an internet connection Offen

Schwierigkeit 3/5 1-2 Tage Anfängerfreundlichkeit 68/100

plotly/plotly.R#2498 · Erstellt am 26.8.2026
Data gets dropped in add_trace and consequently points have the wrong color if NA is present Offen

Schwierigkeit 3/5 1-2 Tage Anfängerfreundlichkeit 72/100

plotly/plotly.R#2497 · 3 Kommentare · Erstellt am 19.8.2026
save_image Error Offen

Schwierigkeit 3/5 1-2 Tage Anfängerfreundlichkeit 52/100

plotly/plotly.R#2494 · Erstellt am 25.6.2026

Alle Issues in plotly/plotly.R