Took out this function because too many sites are more than 8 digits.

R/formatCheckSiteNumber.r

-#' formatCheckSiteNumber
-#'
-#' Checks that the site code is at least 8 digits. If not, it confirms with the user.
-#' @param siteNumber string to check
-#' @param interactive logical Option for interactive mode.  If true, there is user interaction for error handling and data checks.
-#' @keywords WRTDS flow
-#' @return siteNumber string
-#' @export
-#' @examples
-#' site<- '01234567'
-#' formatCheckSiteNumber(site)
-formatCheckSiteNumber <- function(siteNumber, interactive=TRUE){  #checks for a 8 digit number
-  if (nchar(siteNumber) < 8){
-    if (interactive){
-      cat("Most common USGS site numbers are at least 8 digits long, you entered a ", nchar(siteNumber), "digit number = ", siteNumber , ".\n")
-      cat("If you would like to change the site id, enter it here (no quotes), otherwise hit return:\n")
-      tempSiteID <- readline()
-      if (nzchar(tempSiteID)) siteNumber <- tempSiteID
-    } else {
-      warningMessage <- paste("Most common USGS site numbers are at least 8 digits long, you entered ", siteNumber , ".", sep="")
-      warning(warningMessage)
-    }
-  }
-  return(siteNumber)
-}

man/formatCheckSiteNumber.Rd

-% Generated by roxygen2 (4.0.2): do not edit by hand
-\name{formatCheckSiteNumber}
-\alias{formatCheckSiteNumber}
-\title{formatCheckSiteNumber}
-\usage{
-formatCheckSiteNumber(siteNumber, interactive = TRUE)
-}
-\arguments{
-\item{siteNumber}{string to check}
-
-\item{interactive}{logical Option for interactive mode.  If true, there is user interaction for error handling and data checks.}
-}
-\value{
-siteNumber string
-}
-\description{
-Checks that the site code is at least 8 digits. If not, it confirms with the user.
-}
-\examples{
-site<- '01234567'
-formatCheckSiteNumber(site)
-}
-\keyword{WRTDS}
-\keyword{flow}
-