tests/testthat/setup.R

In SqlRender: Rendering Parameterized SQL and Translation to Dialects

clearWarningBlock <- function() {
  if (exists("oracleTempSchema", envir = rlang:::warning_freq_env)) {
    remove("oracleTempSchema", envir = rlang:::warning_freq_env)
  }
}