browser_n

browser_n()

browser_n <- function(n){
  i <- 0
  function(...){
    i <<- i + 1
    if (n >= i){
      browser(...)
    } else {
      invisible(NULL)
    }
  }
}

browser_once <- browser_n(1)
# Will call browser()
browser_once()
# Won't call browser()
browser_once()

browser_twice <- browser_n(2)
# Will call browser()
browser_twice()
browser_twice()
# Won't call browser()
browser_twice()