gsub()を使うと正規表現も用いることができる
#半角空白を全て除くgsub(" ", "", Test)[1] "KARADANIEMONO"
#先頭の半角空白を除くgsub("^ ", "", " KARADANI EMONO ")[1] "KARADANI EMONO "
#最後尾の半角空白を除くgsub(" $", "", " KARADANI EMONO ")[1] " KARADANI EMONO"