Fix the `str_sub<-` function to 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