data-raw/ProcessData_PeriodSummary.R

In leppott/ContDataQC: Quality Control (QC) of Continous Monitoring Data

# Prepare data for example for Period Summary
#
# Erik.Leppo@tetratech.com
# 20170905
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

# 0. Prep####
wd <- getwd() # assume is package directory
#library(devtools)

# 1. Get data and process#####
# 1.1. Import Data
myFile <- "DATA_test2_Aw_20130101_20141231.csv"
data.import <- utils::read.csv(file.path(wd,"data-raw",myFile))
# 1.2. Process Data
View(data.import)
# QC check
dim(data.import)

##~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# 2. Save as RDA for use in package####
#
DATA_period_test2_Aw_20130101_20141231 <- data.import
devtools::use_data(DATA_period_test2_Aw_20130101_20141231,overwrite = TRUE)

# # # for quick naming
# data_raw_test4_mismatchtimes <- data.import
# devtools::use_data(data_raw_test4_mismatchtimes,overwrite=TRUE)

# # as part of help file
# myData <- data.import
# write.csv(myData,paste0("./",Selection.SUB[1],"/test4_AW_20160418_20160726.csv"))