如何删除 R 字符串中空格（空格）之间的所有字符？

Question

假设您有一个字符串“The Big Dog”，并且您想要删除位于空白（空白）之间的所有字符，所以您最终得到“The Dog”。 请注意，在实际代码中，“Big”是动态的，空格之间的字符串可以由连续字符的不同序列组成，因此搜索/替换“Big”不是解决方案。 这将如何完成，最好是在 base R 中，但作为使用 stringr package 的第二选择？

这是我在 base R 中徒劳的尝试：

test <- c("The Big Dog")
test1 <- sub(" " ".*" " ", "", test)

Answer 1

test <- c("The Big Dog", "A Giant and Enormous Dog")
sub(" .* ", " ", test)
#[1] "The Dog" "A Dog"