Add comments to script
Modify indentation and whitespace
Add comments to script
Break from loop when subset contains exactly 1 row
Assign secondary station using inverse value from %in%
Add roxygen @param statements