R/lax.R

In hadley/strict: Make R Just a Little Stricter

#' Be lax in an otherwise strict environment
#'
#' This temporarily removes the shims added by strict so that you can
#' execute code that would otherwise not be allowed
#'
#' @param code Code to execute.
#' @export
#' @examples
#' lax({
#'   mtcars[, 1]
#'
#'   sapply(1:10, runif)
#' })
lax <- function(code) {
  old <- options(
    warnPartialMatchArgs = FALSE,
    warnPartialMatchAttr = FALSE,
    warnPartialMatchDollar = FALSE
  )
  on.exit(options(old), add = TRUE)

  strict_deactivate()
  on.exit(strict_activate(), add = TRUE)

  code
}