R/selectDates.R

In brry/rfs: Rhine Flood Seasonality Analysis

#' @title select Dates
#' @description select rows within a given data range from a data.frame
#' @return data.frame (selected rows)
#' @author Berry Boessenkool, \email{berry-b@@gmx.de}, Jun 2017
#' @export
#' @examples
#' load(seasFolder("data/dismeta.Rdata"))
#' str(selectDates(y1=2009)[,c(1,14:18)])
#' 
#' @param y1,m1,d1 Beginning year, month and day. DEFAULTS: 1920,1,1
#' @param y2,m2,d2 Ending year, month and day. DEFAULTS: 2010,1,1
#' @param df    Dataframe with discharge records in columns. DEFAULT: dis
#' @param logic Logical: return T/F vector: which rows of df are between a and b?
#' 
selectDates <- function(
y1=1920,
y2=2010,
m1=1,d1=1,
m2=1,d2=1,
df=get("dis"),
logic=FALSE)
{
TF <- df[,"date"] >= as.Date(paste(y1,m1,d1, sep="-")) &
      df[,"date"] <  as.Date(paste(y2,m2,d2, sep="-"))
if(logic) return(TF)
df[TF,]
}