add skip to main content button

dfe-analytical-services · Jan 2, 2025 · 7aaa1b7 · 7aaa1b7
1 parent b211236
commit 7aaa1b7
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/R/ui_panels/example_tab_1.R b/R/ui_panels/example_tab_1.R
@@ -5,6 +5,7 @@ example_tab_1_panel <- function() {
       gov_row(
         column(
           width = 12,
+          id = "main_col",
           h1("Overall content title for this dashboard page"),
         ),
         # Expandable section --------------------------------------------------

diff --git a/ui.R b/ui.R
@@ -56,6 +56,11 @@ ui <- function(input, output, session) {
       name = "Department for Education (DfE) Shiny Template"
     ),
 
+    # Skip_to_main -------------------------------------------------------------
+    # Add a 'Skip to main content' link for keyboard users to bypass navigation.
+    # It stays hidden unless focused via tabbing.
+    shinyGovstyle::skip_to_main(),
+
     # Google analytics --------------------------------------------------------
     tags$head(includeHTML(("google-analytics.html"))),
     tags$head(