r - 可访问性模块 highcharter 不工作

Question

highcharter 的可访问性模块无法正常工作。

运行以下代码时，未显示正确的绘图（R 4.1；highcharter：0.8.2）。

删除 hc_add_dependency 时，会显示正确的绘图，但没有可访问性功能

有人让可访问性模块闪亮吗？

library(shiny)
library(dplyr)
library(highcharter)

ui <- fluidPage(
  h1("accessibility module highcharts")
  , fluidRow(column(6, selectizeInput("var", label = "Kies te tonen variabele", choices = c("disp", "mpg", "drat", "qsec"))))
  , fluidRow(column(6, highchartOutput("plot")))
)

server <- function(input, output) {
  
  output$plot <- renderHighchart({
    
    df <- mtcars %>% 
      mutate(
        name = row.names(mtcars)
        , y = get(input$var)
      )
    
    highchart() %>% 
      hc_add_dependency(name = "modules/accessibility.js") %>%
      hc_add_series(df, mapping = hcaes(x = name, y = hp), type = "column", name = "hp") %>% 
      hc_add_series(df, mapping = hcaes(x = name, y = y), type = "column", name = input$var) %>% 
      hc_xAxis(categories = df$name) 
  })
}

shinyApp(ui = ui, server = server)

标签： rhighchartsshinyaccessibility