Удалите все зацепленные часы r
x = " string "
trimws(x)
x
# [1] "string"
marcofaga
x = " string "
trimws(x)
x
# [1] "string"