ui <- bslib::page_fixed(
shiny::h1("Link examples"),
inline("These are ", inline_link("link1", "some"), " ",
inline_link("link2", "increasingly", accent = "danger"), " ",
inline_link("link3", "fancy", accent = c("success", "underline-warning", "offset-2")), " ",
inline_link("link4", "links", icon = shiny::icon("link"), accent = "info"), "!")
)
Run the code above in your browser using DataLab