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

Create package ledgerr and move existing functions there.

Browse Source
This commit is contained in:
Matt
2016-04-13 11:28:59 -05:00
parent 3cca33498f
commit d7363cd872
8 changed files with 90 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
working.Rmd
View File

@ -36,24 +36,6 @@ journal$Debit<-as.numeric(sub(",","",journal$Debit))
journal$Credit<-as.numeric(sub(",","",journal$Credit))
## Temp function location
# TODO https://github.com/mattbk/ledgerr/issues/1
########## net() function, takes journal, class name(s), and date range as arguments
net<-function(journ,classselect="all",accselect="all",dates="all"){
if("all" %in% classselect) {
classselect<-levels(journ$Class)
}
if("all" %in% accselect) {
accselect<-levels(journ$Account)
}
if("all" %in% dates) {
dates<-c(min(journ$Date),max(journ$Date))
}
net<-sum(journ$Credit[journ$Class %in% classselect & journ$Account %in% accselect & journ$Date>=dates[1] & journ$Date<=dates[2]],
na.rm=T)-sum(journ$Debit[journ$Class %in% classselect & journ$Account %in% accselect & journ$Date>=dates[1] & journ$Date<=dates[2]],
na.rm=T)
return(net)
}
##########
########## Net table by class
net.class<-function(journ,