R/helper.R

In NorwegianVeterinaryInstitute/NVIcheckmate: Extension of checkmate with argument checking adapted for NVIverse

# BSD 3-Clause License
#
# Copyright (c) 2019, Michel Lang
# All rights reserved.
#
# The file has been imported from https://gihub.com/mllg/checkmate/R/
# Modifications
# - Commented out all functions except mstop
#
mstop = function(msg, ..., call. = NULL) {
  stop(simpleError(sprintf(msg, ...), call.))
}

# "%and%" = function(lhs, rhs) {
#   if (isTRUE(lhs)) rhs else lhs
# }
#
# "%nin%" = function(x, y) {
#   !match(x, y, nomatch = 0L)
# }

# convertCamelCase = function(x) {
#   tolower(gsub("((?<=[a-z0-9])[A-Z]|(?!^)[A-Z](?=[a-z]))", "_\\1", x, perl = TRUE))
# }

# #' @useDynLib checkmate c_guess_type
# guessType = function(x) {
#   .Call(c_guess_type, x)
# }

# isSameType = function(x, y) {
#   identical(typeof(x), typeof(y)) || (is.numeric(x) && is.numeric(y))
# }

# array_collapse = function(x) {
#   if (length(x) == 0L)
#     return("[]")
#   sprintf("['%s']", paste0(x, collapse = "','"))
# }

# set_collapse = function(x) {
#   if (length(x) == 0L)
#     return("{}")
#   sprintf("{'%s'}", paste0(unique(x), collapse = "','"))
# }