From 9a142d22caafb44e454287b37422df0c1a317b30 Mon Sep 17 00:00:00 2001
From: kaygo <Kayoung.Goffe@nhsbsa.nhs.uk>
Date: Mon, 13 Nov 2023 14:39:05 +0000
Subject: [PATCH] accessibility radio button and action link update

---
 R/utils_accessibility.R                  | 55 ++++++++++++++++++++++++
 inst/app/www/assets/favicons/favicon.svg |  3 --
 man/nhs_selectizeInput.Rd                |  2 +-
 3 files changed, 56 insertions(+), 4 deletions(-)
 delete mode 100644 inst/app/www/assets/favicons/favicon.svg

diff --git a/R/utils_accessibility.R b/R/utils_accessibility.R
index 6c3b075..09e2f36 100644
--- a/R/utils_accessibility.R
+++ b/R/utils_accessibility.R
@@ -124,3 +124,58 @@ nhs_card_tabstop <- function(header, tabindex = 0, ...) {
   nhs_card_tabstop <- div(nhs_card(header, ...)) %>%
     htmltools::tagAppendAttributes(`tabindex` = tabindex)
 }
+
+
+
+
+
+
+
+#' accessible_radio_button
+#'
+#' @param ... radio content
+#'
+#' @noRd
+#'
+accessible_radio_button <- function(inputId, label, choices = NULL, selected = NULL,
+                                    inline = FALSE, width = NULL, choiceNames = NULL,
+                                    choiceValues = NULL) {
+  args <- shiny:::normalizeChoicesArgs(choices, choiceNames, choiceValues)
+  
+  selected <- shiny::restoreInput(id = inputId, default = selected)
+  
+  selected <- if (is.null(selected)) args$choiceValues[[1]] else as.character(selected)
+  if (length(selected) > 1) stop("The 'selected' argument must be of length 1")
+  
+  options <- shiny:::generateOptions(
+    inputId, selected, inline, "radio", args$choiceNames, args$choiceValues
+  )
+  
+  divClass <- "form-group shiny-input-radiogroup shiny-input-container"
+  if (inline) divClass <- paste(divClass, "shiny-input-container-inline")
+  
+  tags$fieldset(
+    tags$legend(label),
+    tags$div(
+      id = inputId,
+      style = htmltools::css(width = validateCssUnit(width)),
+      class = divClass,
+      role = "radiogroup",
+      options
+    )
+  )
+}
+
+#' accessible_action_link
+#'
+#' @param ... action link text
+#'
+#' @noRd
+#'
+accessible_action_link <- function(inputId, label, icon = NULL, ...) {
+  value <- restoreInput(id = inputId, default = NULL)
+  tags$a(id = inputId, href = "#", class = "action-button",
+         `data-val` = value, style = "color: #004280; text-decoration: underline;",
+         list(shiny:::validateIcon(icon), label),
+         ...)
+}
diff --git a/inst/app/www/assets/favicons/favicon.svg b/inst/app/www/assets/favicons/favicon.svg
deleted file mode 100644
index f5185f2..0000000
--- a/inst/app/www/assets/favicons/favicon.svg
+++ /dev/null
@@ -1,3 +0,0 @@
-<svg version="1" xmlns="http://www.w3.org/2000/svg" viewBox="0 0 310 310">
-  <path d="M0 155v63h310V92H0v63zm288.4-50.5c4.3.7 8.3 1.8 8.8 2.3.5.5-.3 4.7-2.2 10.4l-3 9.6-6.3-2c-7.4-2.4-23.2-2.9-28.9-.9-7.2 2.4-9 9.2-3.9 14 1.5 1.4 6.7 4.2 11.4 6.1 18.3 7.3 24.7 14.6 24.7 28.1 0 8.8-2.8 16.4-8.1 21.9-10.3 10.6-32.3 15.3-54.9 11.6-12.8-2.1-17.3-3.5-16.6-5.2.3-.7 1.7-5.2 3.1-9.9 1.5-4.7 2.7-8.5 2.8-8.5.1 0 2.7 1 5.7 2.2 7.6 3.1 28.5 3.3 34.3.4 7.5-3.7 8.7-12.2 2.4-17-1.8-1.3-7-4-11.7-5.8-17.4-7-22.2-12.2-22.8-24.4-.9-17.2 8.9-28.7 27.9-32.8 8.3-1.9 27.3-1.9 37.3-.1zm-222.6 6.7c1.1 3.5 5.7 19 10.3 34.6 4.5 15.5 8.6 27.9 8.9 27.5.4-.5 3.8-16 7.5-34.6l6.8-33.7h12.4c6.8 0 12.3.4 12.3.9 0 1-19.9 94.8-20.6 97.4-.5 1.6-2 1.7-17.2 1.5l-16.7-.3-10.4-34.7c-5.8-19.1-10.6-34.6-10.8-34.4-.2.1-3.2 14.9-6.8 32.7-3.6 17.8-6.7 33.4-7 34.6-.5 2.2-.9 2.3-13.1 2.3-11.5 0-12.5-.1-12-1.8.2-.9 5.1-23.4 10.7-50L30.4 105h33.5l1.9 6.2zM161 106c0 .5-1.6 8.5-3.5 17.7s-3.5 17.3-3.5 18c0 1 3.7 1.3 15.9 1.3h16l1.2-5.8c.6-3.1 2.4-11.6 3.8-18.7l2.7-13 13.2-.3c7.3-.1 13.2.1 13.2.5s-4.6 23-10.2 50L199.6 205h-13.4c-13.4 0-13.4 0-12.9-2.3.3-1.2 2.2-10.1 4.2-19.7 1.9-9.6 3.8-18.3 4.1-19.3.5-1.6-.7-1.7-15.8-1.7h-16.4l-4.4 21.5-4.4 21.5h-13.4c-13.4 0-13.4 0-12.9-2.3.3-1.2 4.9-23.1 10.2-48.7 5.3-25.6 9.8-47.1 10-47.8.5-1.5 26.5-1.8 26.5-.2z"/>
-</svg>
diff --git a/man/nhs_selectizeInput.Rd b/man/nhs_selectizeInput.Rd
index de1ab9f..fe0b0e1 100644
--- a/man/nhs_selectizeInput.Rd
+++ b/man/nhs_selectizeInput.Rd
@@ -24,7 +24,7 @@ from the server. For example, long lists of organisations or drugs. It allows
 to search for options by typing as well as dropdown.
 }
 \examples{
-# In module UI function 
+# In module UI function
 nhs_selectizeInput(
   "fruit",
   "Choose some fruit",