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

Clean functions up.

Browse Source
This commit is contained in:
Matt
2016-04-13 08:10:00 -05:00
parent 89bcc5dc45
commit 4bd1a95dc5
1 changed files with 14 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
working.Rmd
View File

@ -56,7 +56,11 @@ net<-function(journ,classselect="all",accselect="all",dates="all"){
########## ##########
########## Net table by class ########## Net table by class
net.class<-function(journ,classselect="all",dates="all",total=F) { net.class<-function(journ,
classselect="all",
accselect="all",
dates="all",
total=F) {
# List of classes # List of classes
if("all" %in% classselect) { if("all" %in% classselect) {
classselect<-levels(journ$Class) classselect<-levels(journ$Class)
@ -70,6 +74,7 @@ for (i in 1:length(classselect)) {
net.class.out[i,] <- c(classselect[i], net.class.out[i,] <- c(classselect[i],
net(journ, net(journ,
classselect=classselect[i], classselect=classselect[i],
accselect=accselect,
dates="all")) dates="all"))
} }
# Add total net row # Add total net row
@ -83,8 +88,12 @@ return(net.class.out)
#work in progress #work in progress
########## Net table by account ########## Net table by account
net.acc<-function(journ,accselect="all",dates="all",total=F) { net.acc<-function(journ,
# List of classes classselect="all",
accselect="all",
dates="all",
total=F) {
# List of classes - need to do this here before passing to net()
if("all" %in% accselect) { if("all" %in% accselect) {
accselect<-unique(journ$Account) accselect<-unique(journ$Account)
} }
@ -96,11 +105,12 @@ net.acc.out<-data.frame(Account=character(),
for (i in 1:length(accselect)) { for (i in 1:length(accselect)) {
net.acc.out[i,] <- c(as.character(accselect[i]), net.acc.out[i,] <- c(as.character(accselect[i]),
net(journ, net(journ,
classselect=classselect,
accselect=accselect[i], accselect=accselect[i],
dates=dates)) dates=dates))
} }
# Sort by account name # Sort by account name
net.acc.out<-net.acc.out[order(Account) , ] net.acc.out<-net.acc.out[order(net.acc.out$Account) , ]
# Add total net row # Add total net row
if(total) { if(total) {
net.acc.out[nrow(net.acc.out)+1,]<-c("Total",net(journal)) net.acc.out[nrow(net.acc.out)+1,]<-c("Total",net(journal))