У меня есть строка, которая выглядит следующим образом:
str <- c("some text", "another one, that is a bit longer", "yet another one")
Теперь я хочу обернуть эту строку до определенной ширины, а затем заменить все эти обертки на '\ n'.
следующий код делает то, что я хочу (здесь: обтекание с максимальной шириной 10):
str <- sapply(str, function(x) {paste0(strwrap(x, width = 10), collapse = "\n")})
names(str) <- NULL
str
Ожидаемый вывод:
# [1] "some text" "another\none, that\nis a bit\nlonger"
# [3] "yet\nanother\none"
Однако этот код кажется мне довольно сложным (учитываяпростота вопроса).Есть ли более краткие варианты для достижения того, чего я хочу?
Еще немного контекста о том, почему: Моя строка содержит метки объекта igraph.Я хочу обернуть эти ярлыки на определенную длину.Но, конечно, количество этикеток должно быть постоянным на протяжении всей обработки.