gsid2str: Convert Numbers to USGS Station Identification Numbers

In wasquith-usgs/akqdecay: Many Distributional Statistics of USGS Daily Streamflow Hydrographs and Powerful Utilities

Description

Convert numbers to USGS station identification numbers. The USGS has many surface water monitoring stations with a leading 0 (zero) in the official number. Reasonably so, R when viewing such numbers as, well, numbers (e.g. as.numeric) removes the leading zero. (For example, the second number in the Examples, though written with leading zero, does not retain this zero when R interprets the code.) It is a common problem having to return the zero in a string or character (e.g. as.character) representation. If a number is 7, 9, or 11 digits long, prepend a leading zero to form a string comprised of 8, 10, or 12 digits. There is a major fault in this approach—some sites can have 9 or 11 digit numbers, which is a fact not known to Asquith until March 2017 after almost 25 years with USGS.

Usage

gsid2str(siteNumbers, hack=FALSE, ...)

Arguments

siteNumbers	A vector of USGS station identification numbers as numeric or character (a cast to as.character is made internally);
hack	If set, then the function works as described, otherwise the siteNumbers are returned unmodified; and
...	Additional arguments to pass; though not expected to ever be used.

Value

This function returns siteNumbers recast as either 8-, 10-, or 12-digit station numbers in the form of character strings.

Author(s)

W.H. Asquith

See Also

dvget

Examples

print(gsid2str(c(8167000, 08167500, 816750001, 81675000001), hack=TRUE))
# [1] "08167000"     "08167500"     "0816750001"   "081675000001"

## Not run: 
# USGS 08080700 Running Water Draw at Plainview, Texas
# Literally "a view of a plain" and Asquith has passed through the town innumerable
# times since a child and has serviced the streamgage many times.
RunningWaterDraw <- dvget(gsid2str(8080700, hack=TRUE),
                          sdate="2009-01-01", edate="2016-12-31") #
## End(Not run)

wasquith-usgs/akqdecay documentation built on Nov. 9, 2020, 1:13 p.m.