R/sep_opts.R

In jrgant/quickDAG: Make Beautiful Directed Acyclic Graphs

#' View options for fixed node separator characters
#'
#' @description
#' Preview character options for use as the fixed node separator in SWIGs.
#'
#' @param table Logical to show or hide HTML table display of available characters. Defaults to \code{FALSE}.
#'
#' @export sep_opts
#' @importFrom tibble tibble
#' @importFrom htmlTable htmlTable

sep_opts <- function(table = FALSE) {
  sep.opts <- c("tilde" = "&#8768;",
                "vsep" = "&#8739;",
                "vlin" = "&#124;",
                "vdubs" = "&#8214;",
                "vdubl" = "&#8741;",
                "sol" = "&#47;",
                "soldub" = "&#11005;",
                "bracks" = "][",
                "rangle" = "&#10217;")
  if (table) {
    char.tab <- tibble(separator = names(sep.opts),
                       result = unname(sep.opts))
    print(
      htmlTable(char.tab,
                rnames = FALSE,
                css.table = "font-size: 1.5em; font-family: Arial, sans-serif;",
                css.cell = "padding: 0.75em 1.5em;")
      )
  }
  return(sep.opts)
}