R/utils.R

In metrumresearchgroup/pkgpub: Publish Packages

drop_nulls <- function(.x) {
  .x[sapply(.x, is.null)] <- NULL
  .x
}

sh <- function(cmd, args, stdout = TRUE, ...) {
    tryCatch({
      system2(cmd, args, stdout = stdout, ...)
    }, error = function(e) {
      e
    })
}

if_error <- function(.x, when_error = NULL) {
  if (inherits(.x, "simpleError")) {
    return(when_error)
  }
  return(.x)
}

TODO <- function(.msg) {
  stop("TODO: ", .msg)
}