R中的Datatable和Highcharter

是否可以将datatable与highcharter链接？例如，单击表格的任何一行，highcharter将在动态中显示结果？

以下是一个示例，选择您想要的任何行，然后查看图表（highchart）对所选值的反应：

library(highcharter)
library(DT)
library(shiny)
db <- mtcars
ui <- fluidPage(DTOutput("my_dt"),
                highchartOutput("my_hc"))
server <- function(input, output, session) {
  output$my_dt <- renderDT({
    db
  })
  output$my_hc <- renderHighchart({
    db_hc <-
      db[input$my_dt_rows_selected, ] # filter dataset according to select rows in my_dt
    hc <- highchart() %>%
      hc_add_series(name = "mpg", data = db_hc$mpg) %>%
      hc_add_series(name = "wt", data = db_hc$wt)
    hc
  })
}

shinyApp(ui, server)

库（highcharter）
图书馆（DT）
图书馆（闪亮）
db如果您使用的是DT，请查看所选的
行