lines <- function(char = "-") {
stopifnot(nchar(char) == 1)
structure(char, class = "lines")
}
format.lines <- function(x, width, ...) {
paste(rep(x, width), collapse = "")
}
new_pillar(list(
title = pillar_component(new_ornament(c("abc", "de"), align = "right")),
lines = new_pillar_component(list(lines("=")), width = 1)
))
Run the code above in your browser using DataLab