1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
library(shiny)
library(plotly)
ui <- fluidPage(
plotlyOutput("p"),
checkboxInput("edit", "Enable edit mode? Capturing annotation click events in edit mode is not possible.", FALSE),
verbatimTextOutput("data")
)
server <- function(input, output, session) {
output$p <- renderPlotly({
plot_ly(mtcars) %>%
add_annotations(x = ~wt, y = ~mpg, text = row.names(mtcars), captureevents = TRUE)
})
observeEvent(input$edit, {
plotlyProxy("p", session) %>%
plotlyProxyInvoke("reconfig", editable = input$edit)
})
output$data <- renderPrint({
event_data("plotly_clickannotation")
})
}
shinyApp(ui, server)
|
