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

DESCRIPTION

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

R/a11yCheckboxGroupInput.R

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