[R/aggregate_aquifer.R:5:53:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_aquifer.R#L5) *style:* **Trailing whitespace is superfluous.**
```r
#' @param s.wuds dataframe, the swuds water use data
                                                    ^
```
[R/aggregate_aquifer.R:7:1:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_aquifer.R#L7) *style:* **Lines should not be more than 80 characters.**
```r
#' @param sum_avg chr, user selects either "sum" or "avg" and the sum or average will be computed
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/aggregate_aquifer.R:8:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_aquifer.R#L8) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/aggregate_aquifer.R:16:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_aquifer.R#L16) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/aggregate_aquifer.R:17:32:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_aquifer.R#L17) *style:* **Variable or function name should be snake_case.**
```r
aggregate_aquifier <- function(s.wuds, aquifer, sum_avg){
                               ^~~~~~
```
[R/aggregate_aquifer.R:22:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_aquifer.R#L22) *style:* **Variable or function name should be snake_case.**
```r
  s.wuds <- s.wuds[s.wuds$aquifer %in% aquifer, ]
  ^~~~~~
```
[R/aggregate_aquifer.R:23:10:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_aquifer.R#L23) *style:* **Variable or function name should be snake_case.**
```r
  s.wuds$Volume_mgd <- as.numeric(s.wuds$Volume_mgd)
         ^~~~~~~~~~
```
[R/aggregate_aquifer.R:25:5:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_aquifer.R#L25) *style:* **Variable or function name should be snake_case.**
```r
    s.wuds <- aggregate(as.numeric(s.wuds$Volume_mgd),
    ^~~~~~
```
[R/aggregate_aquifer.R:29:5:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_aquifer.R#L29) *style:* **Variable or function name should be snake_case.**
```r
    s.wuds <- aggregate(as.numeric(s.wuds$Volume_mgd),
    ^~~~~~
```
[R/aggregate_county.R:5:53:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_county.R#L5) *style:* **Trailing whitespace is superfluous.**
```r
#' @param s.wuds dataframe, the swuds water use data
                                                    ^
```
[R/aggregate_county.R:6:1:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_county.R#L6) *style:* **Lines should not be more than 80 characters.**
```r
#' @param state_county chr, the county of interest to be aggregated. State abbreviation is also
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/aggregate_county.R:8:1:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_county.R#L8) *style:* **Lines should not be more than 80 characters.**
```r
#' @param sum_avg chr, user selects either "sum" or "avg" and the sum or average will be computed
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/aggregate_county.R:9:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_county.R#L9) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/aggregate_county.R:16:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_county.R#L16) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/aggregate_county.R:17:30:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_county.R#L17) *style:* **Variable or function name should be snake_case.**
```r
aggregate_county <- function(s.wuds, state_county, sum_avg){
                             ^~~~~~
```
[R/aggregate_county.R:19:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_county.R#L19) *style:* **Variable or function name should be snake_case.**
```r
  s.wuds <- s.wuds[s.wuds$state_county %in% state_county, ]
  ^~~~~~
```
[R/aggregate_county.R:20:10:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_county.R#L20) *style:* **Variable or function name should be snake_case.**
```r
  s.wuds$Volume_mgd <- as.numeric(s.wuds$Volume_mgd)
         ^~~~~~~~~~
```
[R/aggregate_county.R:22:5:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_county.R#L22) *style:* **Variable or function name should be snake_case.**
```r
    s.wuds <- aggregate(as.numeric(s.wuds$Volume_mgd),
    ^~~~~~
```
[R/aggregate_county.R:26:5:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_county.R#L26) *style:* **Variable or function name should be snake_case.**
```r
    s.wuds <- aggregate(as.numeric(s.wuds$Volume_mgd),
    ^~~~~~
```
[R/aggregate_HUC.R:5:53:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_HUC.R#L5) *style:* **Trailing whitespace is superfluous.**
```r
#' @param s.wuds dataframe, the swuds water use data
                                                    ^
```
[R/aggregate_HUC.R:7:1:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_HUC.R#L7) *style:* **Lines should not be more than 80 characters.**
```r
#' @param sum_avg chr, user selects either "sum" or "avg" and the sum or average will be computed
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/aggregate_HUC.R:8:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_HUC.R#L8) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/aggregate_HUC.R:15:1:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_HUC.R#L15) *style:* **Variable or function name should be snake_case.**
```r
aggregate_HUC <- function(s.wuds, HUC, sum_avg){
^~~~~~~~~~~~~
```
[R/aggregate_HUC.R:15:27:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_HUC.R#L15) *style:* **Variable or function name should be snake_case.**
```r
aggregate_HUC <- function(s.wuds, HUC, sum_avg){
                          ^~~~~~
```
[R/aggregate_HUC.R:15:35:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_HUC.R#L15) *style:* **Variable or function name should be snake_case.**
```r
aggregate_HUC <- function(s.wuds, HUC, sum_avg){
                                  ^~~
```
[R/aggregate_HUC.R:20:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_HUC.R#L20) *style:* **Variable or function name should be snake_case.**
```r
  s.wuds <- s.wuds[s.wuds$FROM_HUC_CD %in% HUC, ]
  ^~~~~~
```
[R/aggregate_HUC.R:21:10:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_HUC.R#L21) *style:* **Variable or function name should be snake_case.**
```r
  s.wuds$Volume_mgd <- as.numeric(s.wuds$Volume_mgd)
         ^~~~~~~~~~
```
[R/aggregate_HUC.R:23:5:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_HUC.R#L23) *style:* **Variable or function name should be snake_case.**
```r
    s.wuds <- aggregate(as.numeric(s.wuds$Volume_mgd),
    ^~~~~~
```
[R/aggregate_HUC.R:27:5:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_HUC.R#L27) *style:* **Variable or function name should be snake_case.**
```r
    s.wuds <- aggregate(as.numeric(s.wuds$Volume_mgd),
    ^~~~~~
```
[R/aggregate_month.R:4:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_month.R#L4) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/aggregate_month.R:5:53:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_month.R#L5) *style:* **Trailing whitespace is superfluous.**
```r
#' @param s.wuds dataframe, the swuds water use data
                                                    ^
```
[R/aggregate_month.R:6:1:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_month.R#L6) *style:* **Lines should not be more than 80 characters.**
```r
#' @param month chr, the month of interest to be aggregated in abb format (i.e. Jan, Feb, etc.)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/aggregate_month.R:7:1:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_month.R#L7) *style:* **Lines should not be more than 80 characters.**
```r
#' @param sum_avg chr, user selects either "sum" or "avg" and the sum or average will be computed
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/aggregate_month.R:8:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_month.R#L8) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/aggregate_month.R:15:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_month.R#L15) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/aggregate_month.R:16:29:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_month.R#L16) *style:* **Variable or function name should be snake_case.**
```r
aggregate_month <- function(s.wuds, month, sum_avg){
                            ^~~~~~
```
[R/aggregate_month.R:17:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_month.R#L17) *style:* **Variable or function name should be snake_case.**
```r
  s.wuds <- s.wuds[s.wuds$Month %in% month, ]
  ^~~~~~
```
[R/aggregate_month.R:18:10:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_month.R#L18) *style:* **Variable or function name should be snake_case.**
```r
  s.wuds$Volume_mgd <- as.numeric(s.wuds$Volume_mgd)
         ^~~~~~~~~~
```
[R/aggregate_month.R:20:5:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_month.R#L20) *style:* **Variable or function name should be snake_case.**
```r
    s.wuds <- aggregate(as.numeric(s.wuds$Volume_mgd),
    ^~~~~~
```
[R/aggregate_month.R:24:5:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_month.R#L24) *style:* **Variable or function name should be snake_case.**
```r
    s.wuds <- aggregate(as.numeric(s.wuds$Volume_mgd),
    ^~~~~~
```
[R/aggregate_season.R:4:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_season.R#L4) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/aggregate_season.R:5:53:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_season.R#L5) *style:* **Trailing whitespace is superfluous.**
```r
#' @param s.wuds dataframe, the swuds water use data
                                                    ^
```
[R/aggregate_season.R:7:1:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_season.R#L7) *style:* **Lines should not be more than 80 characters.**
```r
#' @param sum_avg chr, user selects either "sum" or "avg" and the sum or average will be computed
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/aggregate_season.R:8:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_season.R#L8) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/aggregate_season.R:15:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_season.R#L15) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/aggregate_season.R:16:30:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_season.R#L16) *style:* **Variable or function name should be snake_case.**
```r
aggregate_season <- function(s.wuds, season, sum_avg){
                             ^~~~~~
```
[R/aggregate_season.R:19:5:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_season.R#L19) *style:* **Variable or function name should be snake_case.**
```r
    s.wuds <- s.wuds[s.wuds$Month %in% c("Jan", "Feb", "Mar"), ]
    ^~~~~~
```
[R/aggregate_season.R:20:12:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_season.R#L20) *style:* **Variable or function name should be snake_case.**
```r
    s.wuds$winterSum <- sum(as.numeric(s.wuds$Volume_mgd), na.rm = TRUE)
           ^~~~~~~~~
```
[R/aggregate_season.R:23:5:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_season.R#L23) *style:* **Variable or function name should be snake_case.**
```r
    s.wuds <- s.wuds[s.wuds$Month %in% c("Jan", "Feb", "Mar"), ]
    ^~~~~~
```
[R/aggregate_season.R:24:12:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_season.R#L24) *style:* **Variable or function name should be snake_case.**
```r
    s.wuds$winterAvg <- mean(as.numeric(s.wuds$Volume_mgd), na.rm = TRUE)
           ^~~~~~~~~
```
[R/aggregate_season.R:27:5:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_season.R#L27) *style:* **Variable or function name should be snake_case.**
```r
    s.wuds <- s.wuds[s.wuds$Month %in% c("Mar", "Apr", "May"), ]
    ^~~~~~
```
[R/aggregate_season.R:28:12:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_season.R#L28) *style:* **Variable or function name should be snake_case.**
```r
    s.wuds$springSum <- sum(as.numeric(s.wuds$Volume_mgd), na.rm = TRUE)
           ^~~~~~~~~
```
[R/aggregate_season.R:31:5:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_season.R#L31) *style:* **Variable or function name should be snake_case.**
```r
    s.wuds <- s.wuds[s.wuds$Month %in% c("Mar", "Apr", "May"), ]
    ^~~~~~
```
[R/aggregate_season.R:32:12:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_season.R#L32) *style:* **Variable or function name should be snake_case.**
```r
    s.wuds$springAvg <- mean(as.numeric(s.wuds$Volume_mgd), na.rm = TRUE)
           ^~~~~~~~~
```
[R/aggregate_season.R:35:5:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_season.R#L35) *style:* **Variable or function name should be snake_case.**
```r
    s.wuds <- s.wuds[s.wuds$Month %in% c("Jun", "Jul", "Aug"), ]
    ^~~~~~
```
[R/aggregate_season.R:36:12:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_season.R#L36) *style:* **Variable or function name should be snake_case.**
```r
    s.wuds$summerSum <- sum(as.numeric(s.wuds$Volume_mgd), na.rm = TRUE)
           ^~~~~~~~~
```
[R/aggregate_season.R:39:5:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_season.R#L39) *style:* **Variable or function name should be snake_case.**
```r
    s.wuds <- s.wuds[s.wuds$Month %in% c("Jun", "Jul", "Aug"), ]
    ^~~~~~
```
[R/aggregate_season.R:40:12:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_season.R#L40) *style:* **Variable or function name should be snake_case.**
```r
    s.wuds$summerAvg <- mean(as.numeric(s.wuds$Volume_mgd), na.rm = TRUE)
           ^~~~~~~~~
```
[R/aggregate_season.R:43:5:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_season.R#L43) *style:* **Variable or function name should be snake_case.**
```r
    s.wuds <- s.wuds[s.wuds$Month %in% c("Sep", "Oct", "Nov"), ]
    ^~~~~~
```
[R/aggregate_season.R:44:12:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_season.R#L44) *style:* **Variable or function name should be snake_case.**
```r
    s.wuds$fallSum <- sum(as.numeric(s.wuds$Volume_mgd), na.rm = TRUE)
           ^~~~~~~
```
[R/aggregate_season.R:47:5:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_season.R#L47) *style:* **Variable or function name should be snake_case.**
```r
    s.wuds <- s.wuds[s.wuds$Month %in% c("Sep", "Oct", "Nov"), ]
    ^~~~~~
```
[R/aggregate_season.R:48:12:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_season.R#L48) *style:* **Variable or function name should be snake_case.**
```r
    s.wuds$fallAvg <- mean(as.numeric(s.wuds$Volume_mgd), na.rm = TRUE)
           ^~~~~~~
```
[R/aggregate_year.R:5:53:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_year.R#L5) *style:* **Trailing whitespace is superfluous.**
```r
#' @param s.wuds dataframe, the swuds water use data
                                                    ^
```
[R/aggregate_year.R:7:1:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_year.R#L7) *style:* **Lines should not be more than 80 characters.**
```r
#' @param sum_avg chr, user selects either "sum" or "avg" and the sum or average will be computed
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/aggregate_year.R:8:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_year.R#L8) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/aggregate_year.R:10:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_year.R#L10) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^~
```
[R/aggregate_year.R:16:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_year.R#L16) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/aggregate_year.R:17:28:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_year.R#L17) *style:* **Variable or function name should be snake_case.**
```r
aggregate_year <- function(s.wuds, year, sum_avg){
                           ^~~~~~
```
[R/aggregate_year.R:18:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_year.R#L18) *style:* **Variable or function name should be snake_case.**
```r
  s.wuds <- s.wuds[s.wuds$YEAR %in% year, ]
  ^~~~~~
```
[R/aggregate_year.R:19:10:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_year.R#L19) *style:* **Variable or function name should be snake_case.**
```r
  s.wuds$Volume_mgd <- as.numeric(s.wuds$Volume_mgd)
         ^~~~~~~~~~
```
[R/aggregate_year.R:21:5:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_year.R#L21) *style:* **Variable or function name should be snake_case.**
```r
    s.wuds <- aggregate(as.numeric(s.wuds$Volume_mgd),
    ^~~~~~
```
[R/aggregate_year.R:25:5:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/aggregate_year.R#L25) *style:* **Variable or function name should be snake_case.**
```r
    s.wuds <- aggregate(as.numeric(s.wuds$Volume_mgd),
    ^~~~~~
```
[R/filter_aquifer.R:4:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_aquifer.R#L4) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/filter_aquifer.R:5:53:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_aquifer.R#L5) *style:* **Trailing whitespace is superfluous.**
```r
#' @param s.wuds dataframe, the swuds water use data
                                                    ^
```
[R/filter_aquifer.R:7:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_aquifer.R#L7) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/filter_aquifer.R:13:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_aquifer.R#L13) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/filter_aquifer.R:14:28:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_aquifer.R#L14) *style:* **Variable or function name should be snake_case.**
```r
filter_aquifer <- function(s.wuds, aquifer){
                           ^~~~~~
```
[R/filter_aquifer.R:19:5:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_aquifer.R#L19) *style:* **Variable or function name should be snake_case.**
```r
    s.wuds <- s.wuds[which(s.wuds$aquifer == aquifer), ]
    ^~~~~~
```
[R/filter_category.R:5:53:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_category.R#L5) *style:* **Trailing whitespace is superfluous.**
```r
#' @param s.wuds dataframe, the swuds water use data
                                                    ^
```
[R/filter_category.R:7:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_category.R#L7) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/filter_category.R:13:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_category.R#L13) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/filter_category.R:14:29:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_category.R#L14) *style:* **Variable or function name should be snake_case.**
```r
filter_category <- function(s.wuds, category){
                            ^~~~~~
```
[R/filter_category.R:19:5:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_category.R#L19) *style:* **Variable or function name should be snake_case.**
```r
    s.wuds <- s.wuds[which(s.wuds$FROM_NAT_WATER_USE_CD == category), ]
    ^~~~~~
```
[R/filter_county.R:5:53:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_county.R#L5) *style:* **Trailing whitespace is superfluous.**
```r
#' @param s.wuds dataframe, the swuds water use data
                                                    ^
```
[R/filter_county.R:6:1:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_county.R#L6) *style:* **Lines should not be more than 80 characters.**
```r
#' @param state_county chr, the county of interested to be filtered. The state abb is appended to
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/filter_county.R:8:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_county.R#L8) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/filter_county.R:14:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_county.R#L14) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/filter_county.R:15:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_county.R#L15) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/filter_county.R:16:27:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_county.R#L16) *style:* **Variable or function name should be snake_case.**
```r
filter_county <- function(s.wuds, state_county){
                          ^~~~~~
```
[R/filter_county.R:19:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_county.R#L19) *style:* **Variable or function name should be snake_case.**
```r
  s.wuds <- s.wuds[which(s.wuds$state_county == state_county), ]
  ^~~~~~
```
[R/filter_HUC.R:5:53:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_HUC.R#L5) *style:* **Trailing whitespace is superfluous.**
```r
#' @param s.wuds dataframe, the swuds water use data
                                                    ^
```
[R/filter_HUC.R:7:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_HUC.R#L7) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/filter_HUC.R:14:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_HUC.R#L14) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/filter_HUC.R:15:1:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_HUC.R#L15) *style:* **Variable or function name should be snake_case.**
```r
filter_HUC <- function(s.wuds, HUC){
^~~~~~~~~~
```
[R/filter_HUC.R:15:24:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_HUC.R#L15) *style:* **Variable or function name should be snake_case.**
```r
filter_HUC <- function(s.wuds, HUC){
                       ^~~~~~
```
[R/filter_HUC.R:15:32:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_HUC.R#L15) *style:* **Variable or function name should be snake_case.**
```r
filter_HUC <- function(s.wuds, HUC){
                               ^~~
```
[R/filter_HUC.R:19:5:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_HUC.R#L19) *style:* **Variable or function name should be snake_case.**
```r
    s.wuds <- s.wuds[which(s.wuds$FROM_HUC_CD == HUC), ]
    ^~~~~~
```
[R/filter_month.R:5:53:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_month.R#L5) *style:* **Trailing whitespace is superfluous.**
```r
#' @param s.wuds dataframe, the swuds water use data
                                                    ^
```
[R/filter_month.R:6:1:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_month.R#L6) *style:* **Lines should not be more than 80 characters.**
```r
#' @param month chr, the month of interest to be filtered in abb format (e.g. Jan, Feb, etc.)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/filter_month.R:7:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_month.R#L7) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/filter_month.R:13:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_month.R#L13) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/filter_month.R:14:26:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_month.R#L14) *style:* **Variable or function name should be snake_case.**
```r
filter_month <- function(s.wuds, month){
                         ^~~~~~
```
[R/filter_month.R:15:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_month.R#L15) *style:* **Variable or function name should be snake_case.**
```r
  s.wuds <- s.wuds[which(s.wuds$months == month), ]
  ^~~~~~
```
[R/filter_siteType.R:5:53:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_siteType.R#L5) *style:* **Trailing whitespace is superfluous.**
```r
#' @param s.wuds dataframe, the swuds water use data
                                                    ^
```
[R/filter_siteType.R:7:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_siteType.R#L7) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/filter_siteType.R:13:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_siteType.R#L13) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/filter_siteType.R:14:1:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_siteType.R#L14) *style:* **Variable or function name should be snake_case.**
```r
filter_siteType <- function(s.wuds, siteType){
^~~~~~~~~~~~~~~
```
[R/filter_siteType.R:14:29:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_siteType.R#L14) *style:* **Variable or function name should be snake_case.**
```r
filter_siteType <- function(s.wuds, siteType){
                            ^~~~~~
```
[R/filter_siteType.R:14:37:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_siteType.R#L14) *style:* **Variable or function name should be snake_case.**
```r
filter_siteType <- function(s.wuds, siteType){
                                    ^~~~~~~~
```
[R/filter_siteType.R:15:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_siteType.R#L15) *style:* **Variable or function name should be snake_case.**
```r
  s.wuds <- s.wuds[which(s.wuds$FROM_SITE_TP_CD == siteType), ]
  ^~~~~~
```
[R/filter_state.R:5:53:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_state.R#L5) *style:* **Trailing whitespace is superfluous.**
```r
#' @param s.wuds dataframe, the swuds water use data
                                                    ^
```
[R/filter_state.R:7:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_state.R#L7) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/filter_state.R:9:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_state.R#L9) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/filter_state.R:14:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_state.R#L14) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/filter_state.R:15:26:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_state.R#L15) *style:* **Variable or function name should be snake_case.**
```r
filter_state <- function(s.wuds, state){
                         ^~~~~~
```
[R/filter_state.R:16:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_state.R#L16) *style:* **Variable or function name should be snake_case.**
```r
  s.wuds <- s.wuds[which(s.wuds$FROM_STATE_NM == state), ]
  ^~~~~~
```
[R/filter_waterType.R:5:53:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_waterType.R#L5) *style:* **Trailing whitespace is superfluous.**
```r
#' @param s.wuds dataframe, the swuds water use data
                                                    ^
```
[R/filter_waterType.R:7:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_waterType.R#L7) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/filter_waterType.R:9:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_waterType.R#L9) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/filter_waterType.R:15:1:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_waterType.R#L15) *style:* **Variable or function name should be snake_case.**
```r
filter_waterType <- function(s.wuds, waterType){
^~~~~~~~~~~~~~~~
```
[R/filter_waterType.R:15:30:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_waterType.R#L15) *style:* **Variable or function name should be snake_case.**
```r
filter_waterType <- function(s.wuds, waterType){
                             ^~~~~~
```
[R/filter_waterType.R:15:38:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_waterType.R#L15) *style:* **Variable or function name should be snake_case.**
```r
filter_waterType <- function(s.wuds, waterType){
                                     ^~~~~~~~~
```
[R/filter_waterType.R:16:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_waterType.R#L16) *style:* **Variable or function name should be snake_case.**
```r
  s.wuds <- s.wuds[which(s.wuds$`Water Type Code` == waterType), ]
  ^~~~~~
```
[R/filter_year.R:5:53:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_year.R#L5) *style:* **Trailing whitespace is superfluous.**
```r
#' @param s.wuds dataframe, the swuds water use data
                                                    ^
```
[R/filter_year.R:7:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_year.R#L7) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/filter_year.R:13:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_year.R#L13) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/filter_year.R:14:25:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_year.R#L14) *style:* **Variable or function name should be snake_case.**
```r
filter_year <- function(s.wuds, year){
                        ^~~~~~
```
[R/filter_year.R:15:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/filter_year.R#L15) *style:* **Variable or function name should be snake_case.**
```r
  s.wuds <- s.wuds[which(s.wuds$YEAR == year), ]
  ^~~~~~
```
[R/map_sites.R:3:66:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L3) *style:* **Trailing whitespace is superfluous.**
```r
#' Returns map of data element mapped by sites that have lat-lons
                                                                 ^
```
[R/map_sites.R:5:79:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L5) *style:* **Trailing whitespace is superfluous.**
```r
#' Assumes the s.wuds dataframe being used as input has already been subsetted
                                                                              ^
```
[R/map_sites.R:10:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L10) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/map_sites.R:11:53:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L11) *style:* **Trailing whitespace is superfluous.**
```r
#' @param s.wuds dataframe, the swuds water use data
                                                    ^
```
[R/map_sites.R:12:55:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L12) *style:* **Trailing whitespace is superfluous.**
```r
#' @param data.element chr, data element to be plotted
                                                      ^
```
[R/map_sites.R:13:1:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L13) *style:* **Lines should not be more than 80 characters.**
```r
#' @param year int, the year of interest to be mapped (defines historical basis for counties)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map_sites.R:15:67:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L15) *style:* **Trailing whitespace is superfluous.**
```r
#' @param norm.element chr, element used to normalize data.element
                                                                  ^
```
[R/map_sites.R:16:1:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L16) *style:* **Lines should not be more than 80 characters.**
```r
#' @param unit.type chr, type of unit to be mapped; acceptable options are "county", "huc", or "aquifer"
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map_sites.R:17:1:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L17) *style:* **Lines should not be more than 80 characters.**
```r
#' @param site.from.to chr, either 'from' or 'to' to designate the site lats-lons to use; the 'from' site or the 'to' site
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map_sites.R:18:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L18) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^~
```
[R/map_sites.R:20:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L20) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/map_sites.R:30:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L30) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/map_sites.R:31:13:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L31) *style:* **Trailing whitespace is superfluous.**
```r
#' @examples
            ^
```
[R/map_sites.R:34:59:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L34) *style:* **Trailing whitespace is superfluous.**
```r
#' s.wuds <- s.wuds[which(s.wuds$FROM_SITE_TP_CD == "AS" &
                                                          ^
```
[R/map_sites.R:44:23:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L44) *style:* **Variable or function name should be snake_case.**
```r
map_sites <- function(s.wuds, data.element, year, state,
                      ^~~~~~
```
[R/map_sites.R:44:31:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L44) *style:* **Variable or function name should be snake_case.**
```r
map_sites <- function(s.wuds, data.element, year, state,
                              ^~~~~~~~~~~~
```
[R/map_sites.R:45:23:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L45) *style:* **Variable or function name should be snake_case.**
```r
                      norm.element=NA, unit.type="county",
                      ^~~~~~~~~~~~
```
[R/map_sites.R:45:40:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L45) *style:* **Variable or function name should be snake_case.**
```r
                      norm.element=NA, unit.type="county",
                                       ^~~~~~~~~
```
[R/map_sites.R:46:23:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L46) *style:* **Variable or function name should be snake_case.**
```r
                      site.from.to = "from"){
                      ^~~~~~~~~~~~
```
[R/map_sites.R:49:5:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L49) *style:* **Variable or function name should be snake_case.**
```r
    hc.sub <- subset_county_polygons(year, "STATE_TERR", state)
    ^~~~~~
```
[R/map_sites.R:49:15:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L49) *warning:* **no visible global function definition for ‘subset_county_polygons’**
```r
    hc.sub <- subset_county_polygons(year, "STATE_TERR", state)
              ^~~~~~~~~~~~~~~~~~~~~~
```
[R/map_sites.R:50:5:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L50) *style:* **Variable or function name should be snake_case.**
```r
    hc.subf <- fortify(hc.sub, region = "FIPS")
    ^~~~~~~
```
[R/map_sites.R:50:16:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L50) *warning:* **no visible global function definition for ‘fortify’**
```r
    hc.subf <- fortify(hc.sub, region = "FIPS")
               ^~~~~~~
```
[R/map_sites.R:54:14:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L54) *warning:* **no visible binding for global variable ‘stateCd’, Did you mean 'state'?**
```r
    state <- stateCd$STUSAB[which(stateCd$STATE_NAME == state)]
             ^~~~~~~
```
[R/map_sites.R:54:14:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L54) *warning:* **no visible binding for global variable ‘stateCd’, Did you mean 'state'?**
```r
    state <- stateCd$STUSAB[which(stateCd$STATE_NAME == state)]
             ^~~~~~~
```
[R/map_sites.R:55:5:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L55) *style:* **Variable or function name should be snake_case.**
```r
    hc.sub <- subset_huc_polygons(year, "STATES", state)
    ^~~~~~
```
[R/map_sites.R:55:15:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L55) *warning:* **no visible global function definition for ‘subset_huc_polygons’**
```r
    hc.sub <- subset_huc_polygons(year, "STATES", state)
              ^~~~~~~~~~~~~~~~~~~
```
[R/map_sites.R:56:5:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L56) *style:* **Variable or function name should be snake_case.**
```r
    hc.subf <- fortify(hc.sub, region = "HUC8")
    ^~~~~~~
```
[R/map_sites.R:56:16:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L56) *warning:* **no visible global function definition for ‘fortify’**
```r
    hc.subf <- fortify(hc.sub, region = "HUC8")
               ^~~~~~~
```
[R/map_sites.R:61:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L61) *style:* **Variable or function name should be snake_case.**
```r
  hc.subf <- left_join(hc.subf, hc.sub@data, by = "id")
  ^~~~~~~
```
[R/map_sites.R:61:14:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L61) *warning:* **no visible global function definition for ‘left_join’**
```r
  hc.subf <- left_join(hc.subf, hc.sub@data, by = "id")
             ^~~~~~~~~
```
[R/map_sites.R:71:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L71) *style:* **Variable or function name should be snake_case.**
```r
  p.elem <- ifelse(is.na(norm.element), data.element,
  ^~~~~~
```
[R/map_sites.R:83:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L83) *style:* **Variable or function name should be snake_case.**
```r
  hc.subf <- left_join(hc.subf, s.wuds, by = "id")
  ^~~~~~~
```
[R/map_sites.R:83:14:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L83) *warning:* **no visible global function definition for ‘left_join’**
```r
  hc.subf <- left_join(hc.subf, s.wuds, by = "id")
             ^~~~~~~~~
```
[R/map_sites.R:85:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L85) *style:* **Variable or function name should be snake_case.**
```r
  p.elem <- data.element
  ^~~~~~
```
[R/map_sites.R:88:5:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L88) *style:* **Variable or function name should be snake_case.**
```r
    p.elem <- paste0(data.element, "_norm")
    ^~~~~~
```
[R/map_sites.R:91:5:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L91) *style:* **Variable or function name should be snake_case.**
```r
    hc.subf <- left_join(hc.subf, s.wuds[, c("STATECOUNTYCODE", "COUNTYNAME")],
    ^~~~~~~
```
[R/map_sites.R:98:5:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L98) *style:* **Variable or function name should be snake_case.**
```r
    hc.subf <- left_join(hc.subf, s.wuds[, c("STATECOUNTYCODE", "Area.Name")],
    ^~~~~~~
```
[R/map_sites.R:107:5:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L107) *style:* **Variable or function name should be snake_case.**
```r
    hc.subf <- left_join(hc.subf, s.wuds[, c("HUCCODE", "Area.Name")],
    ^~~~~~~
```
[R/map_sites.R:117:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L117) *style:* **Variable or function name should be snake_case.**
```r
  hc.subf <- hc.subf[order(hc.subf$order), ]
  ^~~~~~~
```
[R/map_sites.R:118:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L118) *style:* **Variable or function name should be snake_case.**
```r
  hc.subf <- unique(hc.subf[, c("long", "lat", "group", "labels", p.elem)])
  ^~~~~~~
```
[R/map_sites.R:119:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L119) *style:* **Variable or function name should be snake_case.**
```r
  hc.subf <- hc.subf[!is.na(hc.subf[, p.elem]), ]
  ^~~~~~~
```
[R/map_sites.R:120:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/map_sites.R#L120) *style:* **Variable or function name should be snake_case.**
```r
  ch.plot <- ggplot() +
  ^~~~~~~
```
[R/subset_county_polygons.R:3:76:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_county_polygons.R#L3) *style:* **Trailing whitespace is superfluous.**
```r
#' Returns county polygons from: Siczewicz, Peter. U.S. Historical Counties
                                                                           ^
```
[R/subset_county_polygons.R:6:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_county_polygons.R#L6) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/subset_county_polygons.R:7:1:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_county_polygons.R#L7) *style:* **Lines should not be more than 80 characters.**
```r
#' @param areas chr, vector of codes indicating HUCs, counties, states, regions, aquifers, etc.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/subset_county_polygons.R:7:96:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_county_polygons.R#L7) *style:* **Trailing whitespace is superfluous.**
```r
#' @param areas chr, vector of codes indicating HUCs, counties, states, regions, aquifers, etc.
                                                                                ^
```
[R/subset_county_polygons.R:9:1:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_county_polygons.R#L9) *style:* **Lines should not be more than 80 characters.**
```r
#' @param year int, the year of interest to be mapped (defines historical basis for counties)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/subset_county_polygons.R:10:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_county_polygons.R#L10) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/subset_county_polygons.R:12:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_county_polygons.R#L12) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/subset_county_polygons.R:13:61:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_county_polygons.R#L13) *style:* **Trailing whitespace is superfluous.**
```r
#' @return hc.sub dataframe, a subset of county polygon data
                                                            ^
```
[R/subset_county_polygons.R:14:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_county_polygons.R#L14) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/subset_county_polygons.R:15:13:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_county_polygons.R#L15) *style:* **Trailing whitespace is superfluous.**
```r
#' @examples
            ^
```
[R/subset_county_polygons.R:18:16:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_county_polygons.R#L18) *style:* **Trailing whitespace is superfluous.**
```r
#' year <- 2010
               ^
```
[R/subset_county_polygons.R:21:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_county_polygons.R#L21) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/subset_county_polygons.R:24:16:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_county_polygons.R#L24) *style:* **Trailing whitespace is superfluous.**
```r
#' year <- 2010
               ^
```
[R/subset_county_polygons.R:30:42:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_county_polygons.R#L30) *style:* **Variable or function name should be snake_case.**
```r
subset_county_polygons <- function(year, area.column, areas){
                                         ^~~~~~~~~~~
```
[R/subset_county_polygons.R:32:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_county_polygons.R#L32) *style:* **Variable or function name should be snake_case.**
```r
  test.date <- as.Date(paste0(year, "-12-31"))
  ^~~~~~~~~
```
[R/subset_county_polygons.R:33:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_county_polygons.R#L33) *style:* **Variable or function name should be snake_case.**
```r
  now.date <- format(Sys.Date(), "%Y-%m-%d")
  ^~~~~~~~
```
[R/subset_county_polygons.R:35:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_county_polygons.R#L35) *style:* **Variable or function name should be snake_case.**
```r
  hc.sub <- histCounties[which(histCounties@data[, area.column] == areas), ]
  ^~~~~~
```
[R/subset_county_polygons.R:35:13:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_county_polygons.R#L35) *warning:* **no visible binding for global variable ‘histCounties’**
```r
  hc.sub <- histCounties[which(histCounties@data[, area.column] == areas), ]
            ^~~~~~~~~~~~
```
[R/subset_county_polygons.R:35:13:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_county_polygons.R#L35) *warning:* **no visible binding for global variable ‘histCounties’**
```r
  hc.sub <- histCounties[which(histCounties@data[, area.column] == areas), ]
            ^~~~~~~~~~~~
```
[R/subset_county_polygons.R:42:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_county_polygons.R#L42) *style:* **Variable or function name should be snake_case.**
```r
  hc.sub <- hc.sub[hc.sub$END_DATE >= test.date &
  ^~~~~~
```
[R/subset_huc_polygons.R:3:24:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_huc_polygons.R#L3) *style:* **Trailing whitespace is superfluous.**
```r
#' Returns HUC polygons
                       ^
```
[R/subset_huc_polygons.R:5:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_huc_polygons.R#L5) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/subset_huc_polygons.R:7:1:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_huc_polygons.R#L7) *style:* **Lines should not be more than 80 characters.**
```r
#' @param area.column chr, defines which column the areas refer to for subsetting
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/subset_huc_polygons.R:8:1:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_huc_polygons.R#L8) *style:* **Lines should not be more than 80 characters.**
```r
#' @param year int, the year of interest to be mapped (defines historical basis for HUCs)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/subset_huc_polygons.R:9:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_huc_polygons.R#L9) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/subset_huc_polygons.R:11:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_huc_polygons.R#L11) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/subset_huc_polygons.R:12:58:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_huc_polygons.R#L12) *style:* **Trailing whitespace is superfluous.**
```r
#' @return hc.sub dataframe, a subset of HUC polygon data
                                                         ^
```
[R/subset_huc_polygons.R:13:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_huc_polygons.R#L13) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/subset_huc_polygons.R:14:13:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_huc_polygons.R#L14) *style:* **Trailing whitespace is superfluous.**
```r
#' @examples
            ^
```
[R/subset_huc_polygons.R:15:37:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_huc_polygons.R#L15) *style:* **Trailing whitespace is superfluous.**
```r
#' areas <- "ME" # 21 HUC8s in Maine
                                    ^
```
[R/subset_huc_polygons.R:17:16:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_huc_polygons.R#L17) *style:* **Trailing whitespace is superfluous.**
```r
#' year <- 1995
               ^
```
[R/subset_huc_polygons.R:20:39:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_huc_polygons.R#L20) *style:* **Variable or function name should be snake_case.**
```r
subset_huc_polygons <- function(year, area.column, areas){
                                      ^~~~~~~~~~~
```
[R/subset_huc_polygons.R:21:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_huc_polygons.R#L21) *style:* **Variable or function name should be snake_case.**
```r
  hc.sub <- huc08Poly[which(grepl(areas, huc08Poly@data[, area.column])), ]
  ^~~~~~
```
[R/subset_huc_polygons.R:21:13:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_huc_polygons.R#L21) *warning:* **no visible binding for global variable ‘huc08Poly’**
```r
  hc.sub <- huc08Poly[which(grepl(areas, huc08Poly@data[, area.column])), ]
            ^~~~~~~~~
```
[R/subset_huc_polygons.R:21:13:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/subset_huc_polygons.R#L21) *warning:* **no visible binding for global variable ‘huc08Poly’**
```r
  hc.sub <- huc08Poly[which(grepl(areas, huc08Poly@data[, area.column])), ]
            ^~~~~~~~~
```
[R/swuds_parse_functions.R:2:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/swuds_parse_functions.R#L2) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/swuds_parse_functions.R:6:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/swuds_parse_functions.R#L6) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/swuds_parse_functions.R:8:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/swuds_parse_functions.R#L8) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/swuds_parse_functions.R:10:22:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/swuds_parse_functions.R#L10) *style:* **Trailing whitespace is superfluous.**
```r
#' @return data frame
                     ^
```
[R/swuds_parse_functions.R:11:13:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/swuds_parse_functions.R#L11) *style:* **Trailing whitespace is superfluous.**
```r
#' @examples
            ^
```
[R/swuds_parse_functions.R:13:1:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/swuds_parse_functions.R#L13) *style:* **Lines should not be more than 80 characters.**
```r
#' df <- readWaterQuantityXL(file.path(pathToSample, "OH_CTF_SW_monthly_permit_sample_data.xlsx"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/swuds_parse_functions.R:14:1:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/swuds_parse_functions.R#L14) *style:* **Variable or function name should be snake_case.**
```r
readWaterQuantityXL <- function(file_path){
^~~~~~~~~~~~~~~~~~~
```
[R/swuds_parse_functions.R:18:1:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/swuds_parse_functions.R#L18) *style:* **Lines should not be more than 80 characters.**
```r
  names(dq)[names(dq) %in% nwisLU$swuds] <- nwisLU$nwis[match(names(dq)[names(dq) %in%
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/swuds_parse_functions.R:28:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/swuds_parse_functions.R#L28) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/swuds_parse_functions.R:31:13:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/swuds_parse_functions.R#L31) *style:* **Trailing whitespace is superfluous.**
```r
#' @examples
            ^
```
[R/swuds_parse_functions.R:34:1:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/swuds_parse_functions.R#L34) *style:* **Variable or function name should be snake_case.**
```r
readPopServedXL <- function(file_path){
^~~~~~~~~~~~~~~
```
[R/swuds_parse_functions.R:37:1:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/swuds_parse_functions.R#L37) *style:* **Lines should not be more than 80 characters.**
```r
  names(dp)[names(dp) %in% nwisLU$swuds] <- nwisLU$nwis[match(names(dp)[names(dp) %in%
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/swuds_parse_functions.R:43:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/swuds_parse_functions.R#L43) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/swuds_parse_functions.R:50:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/swuds_parse_functions.R#L50) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/swuds_parse_functions.R:52:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/swuds_parse_functions.R#L52) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/swuds_parse_functions.R:53:13:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/swuds_parse_functions.R#L53) *style:* **Trailing whitespace is superfluous.**
```r
#' @examples
            ^
```
[R/swuds_parse_functions.R:59:1:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/swuds_parse_functions.R#L59) *style:* **Variable or function name should be snake_case.**
```r
mergeWaterQuantPopServ <- function(waterQuantDF, popServDF){
^~~~~~~~~~~~~~~~~~~~~~
```
[R/swuds_parse_functions.R:59:36:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/swuds_parse_functions.R#L59) *style:* **Variable or function name should be snake_case.**
```r
mergeWaterQuantPopServ <- function(waterQuantDF, popServDF){
                                   ^~~~~~~~~~~~
```
[R/swuds_parse_functions.R:59:50:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/swuds_parse_functions.R#L59) *style:* **Variable or function name should be snake_case.**
```r
mergeWaterQuantPopServ <- function(waterQuantDF, popServDF){
                                                 ^~~~~~~~~
```
[R/swuds_parse_functions.R:67:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/swuds_parse_functions.R#L67) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/swuds_parse_functions.R:77:3:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/swuds_parse_functions.R#L77) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^~~
```
[R/swuds_parse_functions.R:78:13:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/swuds_parse_functions.R#L78) *style:* **Trailing whitespace is superfluous.**
```r
#' @examples
            ^
```
[R/swuds_parse_functions.R:85:1:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/swuds_parse_functions.R#L85) *style:* **Variable or function name should be snake_case.**
```r
meltWaterQuantPopServ <- function(mergeWaterQuantPopServ){
^~~~~~~~~~~~~~~~~~~~~
```
[R/swuds_parse_functions.R:85:35:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/swuds_parse_functions.R#L85) *style:* **Variable or function name should be snake_case.**
```r
meltWaterQuantPopServ <- function(mergeWaterQuantPopServ){
                                  ^~~~~~~~~~~~~~~~~~~~~~
```
[R/swuds_parse_functions.R:87:1:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/swuds_parse_functions.R#L87) *style:* **Lines should not be more than 80 characters.**
```r
                                  paste0(toupper(month.abb), "_VAL")] <- month.abb
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/swuds_parse_functions.R:101:52:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/swuds_parse_functions.R#L101) *warning:* **no visible binding for global variable ‘Month’, Did you mean 'Math'?**
```r
  df_melt <- tidyr::gather(mergeWaterQuantPopServ, Month, Volume_mgd, Jan:Dec)
                                                   ^~~~~
```
[R/swuds_parse_functions.R:101:59:](https://github.com/USGS-R/wateRuse_swuds/blob/77ddb0dbdc142c906ffc54858a5c6fab50009665/R/swuds_parse_functions.R#L101) *warning:* **no visible binding for global variable ‘Volume_mgd’**
```r
  df_melt <- tidyr::gather(mergeWaterQuantPopServ, Month, Volume_mgd, Jan:Dec)
                                                          ^~~~~~~~~~
```