R/BasicUtils.R

In wegar-2/VariousUtils: Various utility functions

# library(R6)

#' Static class to store utility function used by other package classes
#'
#' @export
BasicUtils <- R6::R6Class(classname = "BasicUtils",
                          public = list(),
                          private = list())



BasicUtils$bIsScalarOfClass <- function(objIn, cClassName) {
  return(methods::is(object = objIn, class2 = cClassName) & length(objIn) == 1L)
}