R/utilities.R

In TippingPoint: Enhanced Tipping Point Displays the Results of Sensitivity Analysis for Missing Data

# other function used in the package

## format cat output
format_cat<-function(x) format(as.character(sprintf("%.7g", x)),width =8,justify="left")


## check range of values
check.range <- function(q,q.set) {q[q<=max(q.set) & q>=min(q.set)]}



#' check R package
#' @param x A character of pacakge name
#' @noRd
check_pkg <- function(x) {
  if (! requireNamespace(x, quietly = TRUE)) {
    stop("Package \"pkg\" must be installed to use this function.", call. = FALSE)
  }
}