local({
  previous_options <- options(warn = 2, digits = 8, stringsAsFactors = FALSE)
  on.exit(options(previous_options), add = TRUE)
  cat("stats available:", requireNamespace("stats", quietly = TRUE), "\n")
  cat("median:", stats::median(c(8, 10, 12)), "\n")
  cat("package version matches runtime:", as.character(packageVersion("stats")) == as.character(getRversion()), "\n")
  invisible(NULL)
})