R/AVSDevR.A11yShinyInputs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added aria label to the select/clear all links to make them unique per input

Browse Source
This commit is contained in:
Craig Williams
2026-02-13 11:37:30 +00:00
parent 8bb836b996
commit 582a310b9c
2 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
DESCRIPTION
View File

@@ -1,6 +1,6 @@
Package: AVSDevR.A11yShinyInputs Package: AVSDevR.A11yShinyInputs
Title: Accesible Alternatives to Shiny Inputs Title: Accesible Alternatives to Shiny Inputs
Version: 0.1.0 Version: 0.1.0.9000
Authors@R: Authors@R:
person("Craig", "Williams", , "craig@avsdev.uk", role = c("aut", "cre")) person("Craig", "Williams", , "craig@avsdev.uk", role = c("aut", "cre"))
Description: Provides accessible alternatives to shiny inputs such as the radio Description: Provides accessible alternatives to shiny inputs such as the radio

6
R/a11yCheckboxGroupInput.R
View File

@@ -38,13 +38,15 @@ a11yCheckboxGroupInput <- function(
href = "#", href = "#",
onclick = "return checkAll(event)", onclick = "return checkAll(event)",
"select all", "select all",
class = "link select-all" class = "link select-all",
`aria-label` = paste("Select all", label)
) )
sn <- htmltools::tags$a( sn <- htmltools::tags$a(
href = "#", href = "#",
onclick = "return clearAll(event)", onclick = "return clearAll(event)",
"clear all", "clear all",
class = "link select-none" class = "link select-none",
`aria-label` = paste("Clear all", label)
) )
selectAll <- htmltools::tags$div( selectAll <- htmltools::tags$div(
"(", sa, "/", sn, ")", class = "select-all-container" "(", sa, "/", sn, ")", class = "select-all-container"