initialize

.gitignore

@@ -0,0 +1,4 @@
+.RData
+.Rhistory
+.Rproj.user
+config.R

config.template.R

@@ -0,0 +1,3 @@
+# Copy each of the sheets by URL (from address bar)
+journal1<-gsheet2tbl("https://docs.google.com/spreadsheets/morestuffhere1")
+journal2<-gsheet2tbl("https://docs.google.com/spreadsheets/morestuffhere2")

ledgerr.Rproj

@@ -0,0 +1,13 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: knitr
+LaTeX: pdfLaTeX

working.Rmd

@@ -0,0 +1,39 @@
+---
+title: "Untitled"
+author: "Matt"
+date: "April 7, 2016"
+output: html_document
+---
+
+```{r setup, include=FALSE}
+knitr::opts_chunk$set(echo = TRUE)
+```
+
+Should use this document for actual operations and keep actual functions in another document for the public [GitHub repo](https://github.com/mattbk/ledgerr). Shiny will be set up at https://www.shinyapps.io/admin/#/dashboard.
+
+```{r}
+# Use https://github.com/maxconway/gsheet
+library(gsheet)
+
+# Pull Google sheet locations from another file (journal1, journal2, etc.)
+source("config.R")
+
+# Combine bank accounts
+journal<-rbind(journal1,journal2)
+
+## Clean up
+# Date is date
+journal$Date<-as.Date(journal$Date,format="%m/%d/%Y")
+# Debit and Credit are numeric, without commas
+journal$Debit<-as.numeric(sub(",","",journal$Debit))
+journal$Credit<-as.numeric(sub(",","",journal$Credit))
+
+# Start thinking about reports
+# All time net, should be function
+net<-sum(journal$Credit,na.rm=T)-sum(journal$Debit,na.rm=T)
+
+# Net by class and date range, should be function
+
+# See other reports in QB and Ledger
+
+```