Move Shiny files to project root

Can't reference legderr files unless they are within the Shiny app folder. This project gets weirder and weirder, will probably need to be split eventually.

working.Rmd

@@ -17,9 +17,6 @@ library(gsheet)
 library(R.utils) #for sourceDirectory()
 sourceDirectory("ledgerr/R")
 
-# For Shiny
-library(rsconnect)
-
 # Pull Google sheet locations from another file (journal1, journal2, etc.)
 source("config.R")
 
@@ -65,4 +62,15 @@ a$Net<-rowSums(a[,2:3],na.rm=T)
 colSums(a[-1])
 
 
+```
+
+```{r deploy}
+# See Shiny documentation for authorizing computer to deploy to shiny.io.
+
+# For Shiny
+library(rsconnect)
+
+# Deploy
+deployApp()
+
 ```