Динамически добавляйте аннотации, щелкая мышью по точке графика в блестящем приложении - PullRequest
Новая
       17

Динамически добавляйте аннотации, щелкая мышью по точке графика в блестящем приложении

0 голосов
/ 09 апреля 2020

На самом деле я работаю над блестящим графом построения приложения с библиотекой dygraphs. Я хочу разрешить пользователю добавлять метку аннотации (и редактировать ее), когда он нажимает на точки нанесенной линии

Здесь базовое c приложение 

library(shiny)
library(dygraphs)


X <- c(1,2,3,4,5,6,7,8,9,10)
Y<-c(100,200,250,267,234,88,78,90,15,32)

data <- data.frame(X,Y)

# Define UI for application that draws a histogram
ui <- fluidPage(

   # Application title
   titlePanel("Test"),

   # Sidebar with a slider input for number of bins 
   sidebarLayout(
      sidebarPanel(
      ),

      # Show a plot of the generated distribution
      mainPanel(
         dygraphOutput("plot")
      )
   )
)

# Define server logic required to draw a histogram
server <- function(input, output) {

  output$plot <- renderDygraph({
                                p <- dygraph(data)%>% dyRangeSelector()
  })

}

# Run the application 
shinyApp(ui = ui, server = server)`

Я чувствую ответ где-то около dyAnnotation() или dyCallbacks(dygraph, pointClickCallback = функции, но я не могу справиться с этим с помощью кода JS.

Если бы кто-то мог помочь мне решить эту проблему, это было бы так здорово!

Большое спасибо заранее

...