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

Snapshot

Browse Source
This commit is contained in:
Matt
2016-04-09 16:03:54 -05:00
parent 391f1a2bed
commit cabd78e909
1 changed files with 3 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
working.Rmd
View File

@@ -35,10 +35,10 @@ 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
net<-function(journ,classselect="all"){ net<-function(journ,classselect="all"){
if("all" %in% classselect) if("all" %in% classselect)
classselect<-levels(journ$Class) classselect<-levels(journ$Class)
print(classselect)
net<-sum(journ$Credit[journ$Class %in% classselect], net<-sum(journ$Credit[journ$Class %in% classselect],
na.rm=T)-sum(journ$Debit[journ$Class %in% classselect], na.rm=T)-sum(journ$Debit[journ$Class %in% classselect],
na.rm=T) na.rm=T)
@@ -55,13 +55,11 @@ net.byclass<-data.frame(Class=character(),
stringsAsFactors=FALSE) stringsAsFactors=FALSE)
# Loop through classes, calculate net, and add to data frame # Loop through classes, calculate net, and add to data frame
for (i in 1:length(classes)) for (i in 1:length(classes))
{ net.byclass[i,] <- c(as.character(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]],
sum(journal$Credit[journal$Class==classes[i]],
na.rm=T)-sum(journal$Debit[journal$Class==classes[i]],
na.rm=T)) na.rm=T))
} }
# Add total net row # 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 # See other reports in QB and Ledger