R/symbol_as_character.R

In smbache/import: An Import Mechanism for R

#' Convert a possible symbol to character.
#'
#' @param symbol A `symbol` or `character` (of length one).
#'
#' @return A `character` representation of the input.
#'
#' @md
#' @noRd
symbol_as_character <- function(symbol)
{
  if (is.symbol(symbol) ||
     (is.character(symbol) && length(symbol) == 1L)) {
    as.character(symbol)
  } else {
    stop(sprintf("%s is not a valid symbol.",
                 paste(as.character(symbol), collapse = " ")),
         call. = FALSE)
  }
}