From cabd78e9098ed202cad9a30ac73685e1579bd065 Mon Sep 17 00:00:00 2001 From: Matt Date: Sat, 9 Apr 2016 16:03:54 -0500 Subject: [PATCH] Snapshot --- working.Rmd | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/working.Rmd b/working.Rmd index 467e066..d6a843b 100644 --- a/working.Rmd +++ b/working.Rmd @@ -35,10 +35,10 @@ 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) classselect<-levels(journ$Class) - print(classselect) net<-sum(journ$Credit[journ$Class %in% classselect], na.rm=T)-sum(journ$Debit[journ$Class %in% classselect], na.rm=T) @@ -55,13 +55,11 @@ net.byclass<-data.frame(Class=character(), stringsAsFactors=FALSE) # Loop through classes, calculate net, and add to data frame for (i in 1:length(classes)) -{ net.byclass[i,] <- c(as.character(classes[i]), - sum(journal$Credit[journal$Class==classes[i]], - na.rm=T)-sum(journal$Debit[journal$Class==classes[i]], +{ net.byclass[i,] <- c(as.character(classes[i]), sum(journal$Credit[journal$Class==classes[i]], na.rm=T) - sum(journal$Debit[journal$Class==classes[i]], na.rm=T)) } # Add total net row -net.byclass[nrow(net.byclass)+1,]<-c("Total",net.calc(journal)) +net.byclass[nrow(net.byclass)+1,]<-c("Total",net(journal)) # See other reports in QB and Ledger