Fix the `str_sub<-` function (Address issue #20)

 `ifelse` within `str_sub<-` was returning only the first entry in the character vector because it returns a vector if the same shape as the logical test. This was resulting in the observed output in issue #20