R/print.R

display_line <- function(s) cat("|  ", s, "\n")

#' @export
print.lazylist <- function(s, n = 5) {
    stream_for_each(s, display_line, until = n)
    cat("|  ", "...", "\n")
}
tarakc02/lazylist documentation built on May 31, 2019, 3:51 a.m.