From ee69659584d6a3428c394fbf9e560eeb450d0c78 Mon Sep 17 00:00:00 2001
From: Matt <bedrocks@gmail.com>
Date: Thu, 14 Apr 2016 16:16:07 -0500
Subject: [PATCH] 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.
---
 .../shinyapps.io/mattbk/ledgerr-shiny.dcf          |  4 ++--
 ledgerr-shiny/server.R => server.R                 |  0
 ledgerr-shiny/ui.R => ui.R                         |  0
 working.Rmd                                        | 14 +++++++++++---
 4 files changed, 13 insertions(+), 5 deletions(-)
 rename {ledgerr-shiny/rsconnect => rsconnect}/shinyapps.io/mattbk/ledgerr-shiny.dcf (74%)
 rename ledgerr-shiny/server.R => server.R (100%)
 rename ledgerr-shiny/ui.R => ui.R (100%)

diff --git a/ledgerr-shiny/rsconnect/shinyapps.io/mattbk/ledgerr-shiny.dcf b/rsconnect/shinyapps.io/mattbk/ledgerr-shiny.dcf
similarity index 74%
rename from ledgerr-shiny/rsconnect/shinyapps.io/mattbk/ledgerr-shiny.dcf
rename to rsconnect/shinyapps.io/mattbk/ledgerr-shiny.dcf
index f69d82f..1e729d9 100644
--- a/ledgerr-shiny/rsconnect/shinyapps.io/mattbk/ledgerr-shiny.dcf
+++ b/rsconnect/shinyapps.io/mattbk/ledgerr-shiny.dcf
@@ -2,6 +2,6 @@ name: ledgerr-shiny
 account: mattbk
 server: shinyapps.io
 appId: 94541
-bundleId: 420068
+bundleId: 420069
 url: https://mattbk.shinyapps.io/ledgerr-shiny/
-when: 1460668046.58897
+when: 1460668285.29384
diff --git a/ledgerr-shiny/server.R b/server.R
similarity index 100%
rename from ledgerr-shiny/server.R
rename to server.R
diff --git a/ledgerr-shiny/ui.R b/ui.R
similarity index 100%
rename from ledgerr-shiny/ui.R
rename to ui.R
diff --git a/working.Rmd b/working.Rmd
index 39bbd1c..618ae03 100644
--- a/working.Rmd
+++ b/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()
+
 ```
\ No newline at end of file