make_skiplinks {savonliquide}

Transform an HTML element to a Skip Link

Description

Transform an HTML element to a Skip Link

Usage

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

Arguments

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

Value

a Skip Link HTML element

Examples

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)
}