R/utils.R

Defines functions tagify is.scalar

is.scalar <- function(x) {
  identical(length(x), 1L)
}

tagify <- function(x) {
  stopifnot(is.character(x) || is(x, "shiny.tag"))
  if (is.character(x)) {
    stopifnot(is.scalar(x))
    shiny::p(x)
  } else x
}
fmhoeger/MIQ documentation built on Oct. 7, 2020, 6:56 a.m.