Я знаю, что вы можете удалить конечные и ведущие пробелы с помощью
gsub("^\\s+|\\s+$", "", x)
И вы можете удалить внутренние пробелы с помощью
gsub("\\s+"," ",x)
Я могу объединить их в одну функцию, но мне было интересно, есть ли способ сделать это одним использованием функции gsub
trim <- function (x) {
x <- gsub("^\\s+|\\s+$|", "", x)
gsub("\\s+", " ", x)
}
testString<- " This is a test. "
trim(testString)