data-raw/fns/close.R

close_open_sinks <- function(){
  purrr::walk(1:length(sink.number()),
              ~ sink(NULL))
}
readyforwhatsnext/ready4fun documentation built on Nov. 22, 2020, 9:28 p.m.