inst/testme/_prologue/050.utils.R

In HenrikBengtsson/globals: Identify Global Objects in R Expressions

assert_identical_sets <- function(a, b) {
  a <- sort(a)
  b <- sort(b)
  if (!identical(a, b)) {
    stop(sprintf("Non-identical sets: c(%s) != c(%s)",
         paste(sQuote(a), collapse = ", "),
         paste(sQuote(b), collapse = ", ")))
  }
}