regex - 通过一次 gsub 调用删除尾随和前导空格以及额外的内部空格

Question

我知道您可以使用

删除尾随和前导空格

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)

Answer 1

这里有一个选项:

gsub("^ +| +$|( ) +", "\\1", testString)  # with Frank's input, and Agstudy's style

我们使用捕获组来确保多个内部空格被单个空格替换。如果您希望删除非空格空白，请将“”更改为 \\s。