Highcharter - Clickable P ie Chart - Как получить название категории из фрагмента, который был нажат на P ie Chart в Shiny?

Question

Я пытаюсь щелкнуть категорию в диаграмме ap ie, построенной с помощью highcharts, и использовать категорию для фильтрации данных в линейной диаграмме в приложении R.

Answer 1

Вы можете зафиксировать клик, используя настройки hc_plotOptions, например:

library(shiny)
library(highcharter)

ui <- fluidPage(
    column(3,
           highchartOutput("hcontainer",height = "300px")
    ),
    column(3,
           textOutput("clicked")
    )
)

server <- function(input, output){

    click_js <- JS("function(event) {Shiny.onInputChange('pieclick',event.point.name);}")

    output$hcontainer <- renderHighchart({
        highchart() %>% 
            hc_chart(type = "pie") %>% 
            hc_add_series(data = list(
                list(y = 3, name = "cat 1"),
                list(y = 4, name = "dog 11"),
                list(y = 6, name = "cow 55"))) %>% 
            hc_plotOptions(series = list(events = list(click = click_js)))
    })

    output$clicked <- renderText({
        input$pieclick
    })

}

shinyApp(ui, server)