R/f7Link.R

In RinteRface/shinyF7: Mobile Ready 'shiny' Apps with Standalone Capabilities

#' Framework7 link
#'
#' Link to point toward external content.
#'
#' @param label Optional link text.
#' @param href Link source, url.
#' @param icon Link icon, if any. Must pass \link{f7Icon}.
#' @param routable Whether to make the link handled by
#' the framework 7 router. Default to FALSE which opens
#' a new page in a new tab.
#'
#' @examples
#' if (interactive()) {
#'   library(shiny)
#'   library(shinyMobile)
#'
#'   shinyApp(
#'     ui = f7Page(
#'       title = "Links",
#'       f7SingleLayout(
#'         navbar = f7Navbar(title = "f7Link"),
#'         f7Link(label = "Google", href = "https://www.google.com"),
#'         f7Link(href = "https://www.twitter.com", icon = f7Icon("bolt_fill"))
#'       )
#'     ),
#'     server = function(input, output) {}
#'   )
#' }
#'
#' @author David Granjon, \email{dgranjon@@ymail.com}
#'
#' @export
f7Link <- function(label = NULL, href, icon = NULL, routable = FALSE) {
  linkCl <- if (routable) "link" else "link external"

  shiny::a(
    href = href,
    target = if (!routable) "_blank",
    class = linkCl,
    if (!is.null(icon)) {
      shiny::tagList(
        icon,
        label
      )
    } else {
      label
    }
  )
}