From 85348ae6785a3345abbe92d30584e6beb02b461b Mon Sep 17 00:00:00 2001
From: Matt <bedrocks@gmail.com>
Date: Tue, 12 Apr 2016 22:31:33 -0500
Subject: [PATCH] Add date selection to net() function.

I'm pretty impressed that I figured this out.
---
 working.Rmd | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/working.Rmd b/working.Rmd
index d6a843b..b17adef 100644
--- a/working.Rmd
+++ b/working.Rmd
@@ -36,11 +36,15 @@ journal$Credit<-as.numeric(sub(",","",journal$Credit))
 ## Temp function location
 # All time net, takes journal and class name(s) as an argument 
 # TODO add date selection, take two dates only e.g., c("2015-01-01","2015-12-31") and test first
-net<-function(journ,classselect="all"){
-  if("all" %in% classselect)
+net<-function(journ,classselect="all",dates="all"){
+  if("all" %in% classselect) {
     classselect<-levels(journ$Class)
-  net<-sum(journ$Credit[journ$Class %in% classselect],
-           na.rm=T)-sum(journ$Debit[journ$Class %in% classselect],
+  }
+  if("all" %in% dates) {
+    dates<-c(min(journ$Date),max(journ$Date))
+  }
+  net<-sum(journ$Credit[journ$Class %in% classselect & journ$Date>=dates[1] & journ$Date<=dates[2]],
+           na.rm=T)-sum(journ$Debit[journ$Class %in% classselect  & journ$Date>=dates[1] & journ$Date<=dates[2]],
                         na.rm=T)
   return(net)
 }