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)