R/ml_extract.R

In rhlee12/Noble: Work With NEON Project Instrumented Data

############################################################################################
#' @title  Refine a data frame with multiple measurement levels down to the specified level

#' @author Robert Lee \email{rlee@battelleecology.org}\cr

#' @description For data downloaded by Noble, and a specified soil plot location, data only
#' from the location are returned as a data frame.
#'
#' @param data A data frame of instrumented pull.dataed with \code{pull.data}.
#' @param ml Desired measurement level, given as an integer (eg ml=1, corresponding to the first level at a tower)
#'
#' @return Returns a data frame of data just from the specified measurement level

#' @keywords process quality, data quality, gaps, commissioning
#' @export

# changelog and author contributions / copyrights
#   Robert Lee (2017-07-18)
#     original creation
#
##############################################################################################

ml.extract<-function(data, ml){
    tis_site_config<-Noble::tis_site_config
    time.indx <- grep(x=colnames(data), pattern = "time", ignore.case = T)
    ml.pattern <- paste0(".0", ml, "0")
    ml.data<-data[,which(grepl(colnames(data), pattern = ml))]
    ml.data<-cbind(data[,time.indx], ml.data)
    return(ml.data)
}