Datatable и Highcharter в Shiny R

Question

Можно ли связать данные с highcharter? Например, нажмите на любую строку таблицы, старший символ покажет результат в динамическом?

Answer 1

Вот пример, выберите любую нужную вам строку и посмотрите, как диаграмма (старшая диаграмма) реагирует на выбранные значения:

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)

Надеюсь, это поможет!