首页 文章

使用带有highcharter的accessibility.js模块

提问于
浏览 次
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)

但它仍然不允许我勾选出泡沫 .

r highcharts shiny r-highcharter

1 回答

  • 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)
  )
    回复于

相关问题