link

Links allow users to click their way from page to page. This component is styled to resemble a hyperlink and semantically renders an <a>

Usage

link(...)

Arguments

...

Props to pass to the component. The allowed props are listed below in the Details section.

Value

Object with shiny.tag class suitable for use in the UI of a Shiny app.

Details

• size. Type: sm OR md OR lg. Default: "md".

• color. Type: foreground OR primary OR secondary OR success OR warning OR danger. Default: "primary".

• underline. Type: none OR hover OR always OR active OR focus. Default: "none".

• href. Type: string. Default: NA.

• target. Type: HTMLAttributeAnchorTarget. Default: NA.

• rel. Type: string. Default: NA.

• download. Type: boolean OR string. Default: NA.

• ping. Type: string. Default: NA.

• referrerPolicy. Type: HTMLAttributeReferrerPolicy. Default: NA.

• isExternal. Type: boolean. Default: false.

• showAnchorIcon. Type: boolean. Default: false.

• anchorIcon. Type: ReactNode. Default: NA.

• isBlock. Type: boolean. Default: false.

• isDisabled. Type: boolean. Default: false.

• disableAnimation. Type: boolean. Default: false.

• onPress. Type: (e: PressEvent) => void. Default: NA.

• onPressStart. Type: (e: PressEvent) => void. Default: NA.

• onPressEnd. Type: (e: PressEvent) => void. Default: NA.

• onPressChange. Type: (isPressed: boolean) => void. Default: NA.

• onPressUp. Type: (e: PressEvent) => void. Default: NA.

• onKeyDown. Type: (e: KeyboardEvent) => void. Default: NA.

• onKeyUp. Type: (e: KeyboardEvent) => void. Default: NA.

• onClick. Type: MouseEventHandler. Default: NA.

See also

See https://heroui.com/docs/components/link.

Examples

library(shiny)
library(shinyNextUI)

colors <- c(
  "default",
  "primary",
  "secondary",
  "success",
  "warning",
  "error"
)

link_config <- data.frame(
  color = colors,
  underline = c(rep("none", 2), "hover", "always", "active", "focus"),
  block = c(rep(TRUE, 3), rep(FALSE, 3)),
  href = c(rep("#", 3), rep("https://google.com", 3)),
  isExternal = c(rep(FALSE, 3), rep(TRUE, 3)),
  size = rep(c("sm", "md", "lg"), 2)
)

link_factory <- function(color, underline, block, href, isExternal, size) {
  link(
    "A super link!",
    color = color,
    underline = underline,
    isBlock = block,
    href = href,
    isExternal = isExternal,
    size = size
  )
}

links <- purrr::pmap(link_config, link_factory)

ui <- nextui_page(
  div(
    class = "grid gap-4 grid-cols-3 grid-rows-2 m-5",
    links
  )
)

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

if (interactive() || is_testing()) shinyApp(ui, server)