make_skiplinks: Transform an HTML element to a Skip Link
In savonliquide: Accessibility Toolbox for 'R' Users

Description Usage Arguments Value Examples

View source: R/make_skiplinks.R

Transform an HTML element to a Skip Link

1	make_skiplinks(element, skip_to, bg_color = "#002240", col = "#FFFFFF")

`element`	the element to use as a Skip Link
`skip_to`	the HTML element to skip to
`bg_color`	the background color of the element to use as a Skip Link
`col`	the color of the element to use as a Skip Link

a Skip Link HTML element

if (interactive()) {
  ui <- fluidPage(
    tags$a("do you want to be redirected to google.com ?",
      id = "skip-link"
    ) %>%
      make_skiplinks(
        skip_to = "https://google.com",
        bg_color = "red",
        col = "white"
      ),

    h1("accessibility is not a detail")
  )

  server <- function(input, output, session) {}

  shinyApp(ui, server)
}