使用带有 highcharter 的 accessibility.js 模块

Question

我正在尝试让辅助功能模块与 highcharter 一起工作，但我似乎不知道该怎么做。

我正在尝试将它集成到一个闪亮的应用程序中，所以这是我目前所处位置的一个非常简单的示例：

library(highcharter)
library(shiny)
x <- c("a", "b", "c", "d")
y <- c(1:4)
z <- c(4:7)

data <- data.frame(x,y,z)

ui <- fluidPage(
  fluidRow(
    highchartOutput("chart")
  )
)

server <- function(input, output, session){
  output$chart <- renderHighchart({
hchart(data, "bubble", hcaes(x = x, y = y, size = z))%>%
    hc_add_dependency(name = "modules/accessibility.js")
    })
}

shinyApp(ui = ui, server = server)

但它仍然不允许我在气泡中切换。

Answer 1

编辑：

我还不能修复选项卡选项，我会检查一下。对不起。

上一个回答

这是 highcharter 的错误，在开发版中已修复。更新并测试：

source("https://install-github.me/jbkunst/highcharter")

现在默认包含可访问性插件，您可以使用 hc_accessibility 函数和 highcharts API documentation.

中描述的选项进行配置

我使用 NVDA.

进行了测试

highchart() %>% 
  hc_add_series(data = 1:3, type = "column") %>% 
  hc_accessibility(
    enabled = TRUE,
    keyboardNavigation = list(enabled = FALSE)
  )

使用带有 highcharter 的 accessibility.js 模块

Using the accessibility.js module with highcharter

r

highcharts

shiny

r-highcharter

上一个回答