/
epcdata.R
47 lines (47 loc) · 1.13 KB
/
epcdata.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
#' All bay data as of 20240201
#'
#' All bay data as of 20240201
#'
#' @format A data frame with 27961 rows and 26 variables:
#' \describe{
#' \item{bay_segment}{chr}
#' \item{epchc_station}{num}
#' \item{SampleTime}{POSIXct}
#' \item{yr}{num}
#' \item{mo}{num}
#' \item{Latitude}{num}
#' \item{Longitude}{num}
#' \item{Total_Depth_m}{num}
#' \item{Sample_Depth_m}{num}
#' \item{tn}{num}
#' \item{tn_q}{chr}
#' \item{sd_m}{num}
#' \item{sd_raw_m}{num}
#' \item{sd_q}{chr}
#' \item{chla}{num}
#' \item{chla_q}{chr}
#' \item{Sal_Top_ppth}{num}
#' \item{Sal_Mid_ppth}{num}
#' \item{Sal_Bottom_ppth}{num}
#' \item{Temp_Water_Top_degC}{num}
#' \item{Temp_Water_Mid_degC}{num}
#' \item{Temp_Water_Bottom_degC}{num}
#' \item{Turbidity_JTU-NTU}{num}
#' \item{Turbidity_Q}{num}
#' \item{Color_345_F45_PCU}{num}
#' \item{Color_345_F45_Q}{num}
#' }
#'
#' @concept data
#'
#' @examples
#' \dontrun{
#' xlsx <- '~/Desktop/epcdata.xlsx'
#' epcdata <- read_importwq(xlsx, download_latest = TRUE)
#'
#' nrow(epcdata)
#' ncol(epcdata)
#'
#' save(epcdata, file = 'data/epcdata.RData', compress = 'xz')
#' }
"epcdata"