Load and check swuds data

Source: R/create_swuds.R

Load and check swuds data

create_swuds(path_pop, path_quant, ...)

# S3 method for swuds
summary(object, ...)

as_swuds(dq, dp = NULL)

Arguments

path_pop

file path to Excel file of population file
path_quant

file path to Excel file of water quantity file
...

additional paremeters sent to as_swuds.
object

swuds object
dq

data frame quanity
dp

data frame population

Examples

path_to_data <-  system.file("extdata", package="wateRuseSWUDS")
file_name_1 <- "OH_CTF_SW_monthly_permit_sample_data.xlsx"
file_name_2 <- "OHpopserved_output.xlsx"
excel_path_quant <- file.path(path_to_data, file_name_1)
excel_path_pop <- file.path(path_to_data, file_name_2)
swuds_1 <- create_swuds(excel_path_pop, excel_path_quant)
summary(swuds_1)
#> # A tibble: 6 x 3
#>   FROM_AGENCY_CD FROM_SITE_NO    FROM_STATION_NM         
#>   <chr>          <chr>           <chr>                   
#> 1 OH004          404325082475900 GALION WATER DEPARTMENT 
#> 2 OH004          404325082475900 GALION WATER DEPARTMENT 
#> 3 OH004          404325082475900 GALION WATER DEPARTMENT 
#> 4 USGS           382606082360000 ALLIED CHEMICAL CORP WU1
#> 5 USGS           383012082394900 ALLIED CHEMICAL CORP WU2
#> 6 USGS           383200082400100 DAYTON MALLEABLE IRON CO