R/html.R

In ranghetti/guinterp: A Shiny GUI for Spatial Interpolation

#' @name h
#' @rdname ht
#' @title Convert to HTML entities
#' @description Internal functions used to convert  elements to `HTML`.
#'
#'  `t()` is converts a list of character vectors to `HTML`.
#'
#'  `ht()` converts a vector of translation labels to a list of `HTML`
#'  translated entities.
#'
#'  `ph()` pastes `HTML` entities.
#' @param x Character vector or list
#' @param t Character vector or list
#' @importFrom shiny HTML
#' @return
#'  `t()` and `ht()`: if `x` is a 1-length character, an `HTML` object;
#'  if `x` is a vector with length > 1, a list of `HTML` objects;
#'  if `x` is a list of vectors, a list of objects.
#'
#'  `ph()`: an `HTML` element.
#' @author Luigi Ranghetti, phD (2020) \email{ranghetti.l@@irea.cnr.it}
#' @note License: GPL 3.0

h <- function(t) {
  vector_to_html <- function(t) {
    if (length(t) > 1) {
      lapply(as.character(t), HTML)
    } else {
      HTML(as.character(t))
    }
  }
  if (inherits(t, "list")) {
    lapply(t, vector_to_html)
  } else {
    vector_to_html(t)
  }
}

#' @name ht
#' @rdname ht
#' @param i18n Object containing translations
ht <- function(x, i18n) {

  # read dictionary
  if (missing(i18n)) {
    i18n <- suppressWarnings(
      shiny.i18n::Translator$new(translation_csvs_path = system.file("app/translations", package="guinterp"))
    )
    i18n$set_translation_language(getShinyOption("ui_lang", "en"))
  }

  if (length(x) == 1) {
    h(i18n$t(x))
  } else {
    lapply(x, function(y) {h(i18n$t(y))})
  }

}


#' @name ph
#' @rdname ht
#' @importFrom shiny HTML
#' @param ... Elements to be pasted.
ph <- function(...) {HTML(paste0(...))}