local({
  previous_options <- options(warn = 2, digits = 8, stringsAsFactors = FALSE)
  on.exit(options(previous_options), add = TRUE)
  cat("base package available:", requireNamespace("base", quietly = TRUE), "\n")
  cat("native pipe supported:", getRversion() >= numeric_version("4.1.0"), "\n")
  invisible(NULL)
})