1

我正在尝试让可访问性模块与 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)

但它仍然不允许我穿过气泡。

4

1 回答 1

2

编辑：

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

上一个答案

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

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

现在默认包含辅助功能插件，您可以使用hc_accessibility带有 highcharts API 文档中描述的选项的功能进行配置。

我使用NVDA进行了测试。

highchart() %>% 
  hc_add_series(data = 1:3, type = "column") %>% 
  hc_accessibility(
    enabled = TRUE,
    keyboardNavigation = list(enabled = FALSE)
  )
于 2017-06-06T05:46:14.847 回答