R/err.R

In imlijunda/AwkwardMLTools: Awkward ML Tools

err <- function(msg) {

  func <- as.character(sys.call(-2L))[1]

  err_msg <- sprintf("Error in %s: %s", func, msg)
  stop(err_msg)
}

err_null_arg <- function(arg) {

  arg_name <- as.character(substitute(arg))
  msg <- sprintf("NULL argument %s.", arg_name)

  err(msg)
}

err_invalid_value <- function(var, elaborate = NULL) {

  var_name <- as.character(substitute(var))
  msg <- sprintf("Invalid value of %s: %s", var_name, toString(var))
  if (!is.null(elaborate)) {
    msg <- paste0(msg, " ", elaborate)
  }

  err(msg)
}

err_invalid_class <- function(var, elaborate = NULL) {

  var_name <- as.character(substitute(var))
  msg <- sprintf("Invalid class of %s: %s", var_name, class(var))
  if (!is.null(elaborate)) {
    msg <- paste0(msg, " ", elaborate)
  }

  err(msg)
}

err_invalid_length <- function(var, elaborate = NULL) {

  var_name <- as.character(substitute(var))
  msg <- sprintf("Invalid length of %s: %d", var_name, length(var))
  if (!is.null(elaborate)) {
    msg <- paste0(msg, " ", elaborate)
  }

  err(msg)
}

err_invalid_retval <- function(var, f, elaborate = NULL) {

  var_name <- as.character(substitute(var))
  f_name <- as.character(substitute(f))
  msg <- sprintf("%s(%s) returned invalid value", var_name, f_name)
  if (!is.null(elaborate)) {
    msg <- paste0(msg, " ", elaborate)
  }

  err(msg)
}

err_worker_null <- function(pid) {

  msg <- sprintf("Worker PID = %s returned NULL. Stopping all forked processes.", toString(pid))

  err(msg)
}

err_worker_stop <- function(pid) {

  msg <- sprintf("Workers PID = %s have already stopped.", toString(pid))

  err(msg)
}

err_worker <- function(info) {

  msg <- sprintf("Worker returned try-error: %s", toString(info))

  err(msg)
}