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