R/fn_close.R

In readyforwhatsnext/ready4fun: ready4 Function Authoring And Documentation Tools

#' Close open sinks
#' @description close_open_sinks() is a Close function that closes specified connections. Specifically, this function implements an algorithm to close open sinks. The function is called for its side effects and does not return a value.

#' @return NULL
#' @rdname close_open_sinks
#' @export 
#' @importFrom purrr walk
close_open_sinks <- function () 
{
    purrr::walk(1:length(sink.number()), ~sink(NULL))
}