Как я могу подмножить символ из символьных строк, разделенных " " в R?

У меня есть список строк символов, и я хочу подмножить первый символ каждого элемента в списке. Например, я хочу получить только "Apr 2017" в первом элементе списка вместо "Apr 2017" "masked" "idw2".

есть идеи?

> idwstr
[[1]]
[1] "Apr 2017" "masked"   "idw2"    

[[2]]
[1] "Aug 2017" "masked"   "idw2"    

[[3]]
[1] "Dec 2017" "masked"   "idw2"    

[[4]]
[1] "Feb 2017" "masked"   "idw2"    

[[5]]
[1] "Jan 2017" "masked"   "idw2"    

[[6]]
[1] "Jul 2017" "masked"   "idw2"    

[[7]]
[1] "Jun 2017" "masked"   "idw2"    

[[8]]
[1] "Mar 2017" "masked"   "idw2"    

[[9]]
[1] "May 2017" "masked"   "idw2"    

[[10]]
[1] "Nov 2017" "masked"   "idw2"    

[[11]]
[1] "Oct 2017" "masked"   "idw2"    

[[12]]
[1] "Sep 2017" "masked"   "idw2"    

> idwstr[[1]]
[1] "Apr 2017" "masked"   "idw2"```