Remove more then two joined newlines

Remove more then two joined newlines

remove.extra.newlines(x)

Arguments

x

character vector

Examples

remove.extra.newlines(c('\n\n\n', '\n\n', '\n'))
#> [1] "\n\n" "\n\n" "\n"