R/print.R

In earowang/icon: Use different icon fonts in RMarkdown

#' @export
knitOutputType <- function() {
    output <- rmarkdown::yaml_front_matter(knitr::current_input())$output
    if (is.list(output)) {
        return(names(output)[1])
    } else {
        return(output[1])
    }
}


#' @inherit knitr::knit_print
#' @export
knit_print.icon_fa <- function(x, ...) {
    if (knitOutputType() %in% c("pdf_document", "beamer", "pdf_document2")) {
        if (length(x$name) > 1) {
            warning("Icon stacking is not supported for PDF output")
            x$name <- x$name[1]
        }
        knitr::asis_output(paste0("\\faicon{", x$name, "}"), meta = list(rmarkdown::latex_dependency("fontawesome")))
    } else if (knitOutputType() == "word_document") {
        stop(":(", .call = FALSE)
    } else {
        icon <- htmltools::tags$i(class = cat_icon(x))
        header <- htmltools::singleton(htmltools::tags$head(html_dependency_fa()))
        knitr::knit_print(htmltools::tagList(icon, header))
    }
}

#' @inherit knitr::knit_print
#' @export
knit_print.icon_ai <- function(x, ...) {
    if (knitOutputType() %in% c("pdf_document", "beamer", "pdf_document2")) {
        knitr::asis_output(paste0("\\aiicon{", x$name, "}"), meta = list(rmarkdown::latex_dependency("academicons")))
    } else if (knitOutputType() == "word_document") {
        stop(":(", .call = FALSE)
    } else {
        icon <- htmltools::tags$i(class = cat_icon(x))
        header <- htmltools::singleton(htmltools::tags$head(html_dependency_academicons()))
        knitr::knit_print(htmltools::tagList(icon, header))
    }
}

#' @inherit knitr::knit_print
#' @export
knit_print.icon_ii <- function(x, ...) {
  if (knitOutputType() %in% c("pdf_document", "beamer", "pdf_document2")) {
    stop("ionicons not supported for PDF output", .call = FALSE)
  } else if (knitOutputType() == "word_document") {
    stop("ionicons not supported for word output", .call = FALSE)
  } else {
    icon <- htmltools::tags$i(class = cat_icon(x))
    header <- htmltools::singleton(htmltools::tags$head(html_dependency_ionicons()))
    knitr::knit_print(htmltools::tagList(icon, header))
  }
}

cat_icon <- function(x) {
    UseMethod("cat_icon")
}

cat_icon.icon_fa <- function(x) {
    icon_string(x, icon = "fa")
}

cat_icon.icon_ai <- function(x) {
  icon_string(x, icon = "ai")
}

cat_icon.icon_ii <- function(x) {
  icon_string(x, icon = "ion")
}

paste_icon <- function(icon = "fa", other) {
    paste0(" ", icon, "-", other)
}

icon_string <- function(x, icon = "fa") {
    # Determine fa string to use
    # -------------------------------------------------
    size_append <- switch(as.character(x$options$size), `1` = "", lg = paste_icon(icon,
        "lg"), `2` = paste_icon(icon, "2x"), `3` = paste_icon(icon, "3x"),
        `4` = paste_icon(icon, "4x"), `5` = paste_icon(icon, "5x"))

    if (x$options$fixed_width) {
        fw_append <- paste_icon(icon, "fw")
    } else {
        fw_append <- ""
    }

    anim_append <- switch(x$options$animate, still = "", spin = paste_icon(icon,
        "spin"), pulse = paste_icon(icon, "pulse"))

    rotate_append <- switch(as.character(x$options$rotate), `0` = "", `90` = paste_icon(icon,
        "rotate-90"), `180` = paste_icon(icon, "rotate-180"), `270` = paste_icon(icon,
        "rotate-270"))

    flip_append <- switch(x$options$flip, none = "", horizontal = paste_icon(icon,
        "flip-horizontal"), vertical = paste_icon(icon, "flip-vertical"))

    if (x$options$border) {
        border_append <- paste_icon(icon, "border")
    } else {
        border_append <- ""
    }

    if (!is.null(x$options$pull)) {
        pull_append <- switch(x$options$pull, left = paste_icon(icon, "pull-left"),
            right = paste_icon(icon, "pull-rigth"))
    } else {
        pull_append <- ""
    }

    other_append <- paste0(" ", paste(x$options$other, collapse = " "))

    paste0(paste0(icon, " "), paste_icon(icon, x$name), size_append, fw_append,
        anim_append, rotate_append, flip_append, border_append, pull_append,
        other_append)
}