Удалите все зацепленные часы r

x = "   string   "
trimws(x)
x
# [1] "string"
marcofaga