Aliases: ansi_strwrap
Keywords:
### ** Examples text <- cli:::lorem_ipsum() # Highlight some words, that start with 's' rexp <- gregexpr("\\b([sS][a-zA-Z]+)\\b", text) regmatches(text, rexp) <- lapply(regmatches(text, rexp), col_red) cat(text)
Ad quis consequat velit nisi mollit ipsum velit reprehenderit eu quis. Et labore nulla ex quis amet exercitation tempor culpa consequat labore cupidatat esse. Consectetur laboris voluptate esse excepteur fugiat eiusmod cupidatat. Exercitation exercitation exercitation esse excepteur reprehenderit qui ad labore laborum nulla sunt. Commodo eiusmod laboris tempor est incididunt et dolor tempor laborum sint. Mollit elit sunt velit ex. Tempor Lorem deserunt eiusmod consectetur pariatur nulla eiusmod duis do et pariatur est.
wrp <- ansi_strwrap(text, width = 40) cat(wrp, sep = "\n")
Ad quis consequat velit nisi mollit ipsum velit reprehenderit eu quis. Et labore nulla ex quis amet exercitation tempor culpa consequat labore cupidatat esse. Consectetur laboris voluptate esse excepteur fugiat eiusmod cupidatat. Exercitation exercitation exercitation esse excepteur reprehenderit qui ad labore laborum nulla sunt. Commodo eiusmod laboris tempor est incididunt et dolor tempor laborum sint. Mollit elit sunt velit ex. Tempor Lorem deserunt eiusmod consectetur pariatur nulla eiusmod duis do et pariatur est.