matt/ledgerr
1
0
Fork 0
Code Issues 5 Pull Requests Packages Projects Releases Wiki Activity

Add date selection to net() function.

Browse Source 
I'm pretty impressed that I figured this out.
This commit is contained in:
Matt
2016-04-12 22:31:33 -05:00
parent cabd78e909
commit 85348ae678
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
working.Rmd
View File

@ -36,11 +36,15 @@ journal$Credit<-as.numeric(sub(",","",journal$Credit))
## Temp function location ## Temp function location
# All time net, takes journal and class name(s) as an argument # 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 # 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"){ net<-function(journ,classselect="all",dates="all"){
if("all" %in% classselect) if("all" %in% classselect) {
classselect<-levels(journ$Class) 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) na.rm=T)
return(net) return(net)
} }