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功能配置高级字符API documentation中描述的选项。

我使用NVDA进行了测试。

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

使用带有highcharter的accessibility.js模块

1 个答案:

以前的回答