Update subset.station.R

Fixed attribute settings - conditional on length