#' Read Brilliant Dam Data File
#'
#' A utc_offset of -8 is equivalent to Pacific Standard Time.
#'
#' @param file A string specifying the path to the file.
#' @inheritParams tsdbr::ts_create_db
#' @export
ts_read_brd <- function(file = "brd.csv", utc_offset = -8L) {
chk_string(file)
chk_scalar(utc_offset)
check_values(utc_offset, c(-12L, 14L))
if(!file.exists(file))
stop("file '", file, "' does not exist", call. = FALSE)
data <- utils::read.csv(file, stringsAsFactors = FALSE)
check_data(data, values = list(
TIME = "",
BRD_FLOWS_AVG = 1,
BRD_QSPILL_AVG = 1,
BRX_FLOW_AVG = 1
), x_name = file)
brd <- data[c("TIME", "BRD_FLOWS_AVG")]
brs <- data[c("TIME", "BRD_QSPILL_AVG")]
brx <- data[c("TIME", "BRX_FLOW_AVG")]
rm(data)
colnames(brd) <- c("TIME", "Recorded")
colnames(brs) <- c("TIME", "Recorded")
colnames(brx) <- c("TIME", "Recorded")
brd$Station <- "BRD_FLOWS_AVG"
brs$Station <- "BRD_QSPILL_AVG"
brx$Station <- "BRX_FLOW_AVG"
data <- rbind(brd, brs, brx, stringsAsFactors = FALSE)
rm(brd, brs, brx)
data$DateTime <- lubridate::parse_date_time(
data$TIME, c("YmdHM", "YmdHMS", "dmYHM", "dmYHMS"),
tz = ts_utc_offset_to_tz(utc_offset))
data$TIME <- NULL
data$Recorded <- data$Recorded * 0.028316847
data$Status <- ordered("reasonable", c("reasonable", "questionable", "erroneous"))
data <- data[c("Station", "DateTime", "Recorded", "Status")]
data <- data[order(data$Station, data$DateTime), ]
rownames(data) <- NULL
as_tibble(data)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.