hardcoded datasource in get_stations call

[stijnvanhoey]

https://github.com/ropensci/wateRinfo/blob/master/R/get_stations.R#L70
Should be able to include the datasource, either 1 or 4