Deploy case-study apps

Fixes #368

Author: hadley

basic-case-study.Rmd

@@ -19,6 +19,31 @@ case_study_screenshot <- function(name) {
   
   knitr::include_graphics(png_path, dpi = screenshot_dpi())  
 }
+
+case_study_deploy <- function(name) {
+  tmp <- dir_create(file_temp())
+ 
+  data <- c("injuries.tsv.gz", "population.tsv", "products.tsv")
+  file_copy(path("neiss", data), tmp)
+  file_copy(paste0("neiss/", name, ".R"), path(tmp, "app.R"))
+  
+  rsconnect::deployApp(
+    appDir = tmp,
+    appName = paste0("ms-", name),
+    appTitle = paste0("Mastering Shiny: ", name),
+    server = "shinyapps.io",
+    forceUpdate = TRUE,
+    logLevel = "quiet",
+    launch.browser = FALSE
+  )
+}
+if (FALSE) {
+  case_study_deploy("narrative")
+  case_study_deploy("polish-tables")
+  case_study_deploy("prototype")
+  case_study_deploy("rate-vs-count")
+}
+
 ```
 
 ## Introduction
@@ -210,7 +235,7 @@ Note that creating the `summary` reactive isn't strictly necessary here, as it's
 But it's good practice to keep computing and plotting separate as it makes the flow of the app easier to understand, and will make it easier to generalise in the future.
 
 A screenshot of the resulting app is shown in Figure \@ref(fig:prototype).
-You can find the source code at <https://github.com/hadley/mastering-shiny/tree/master/neiss/prototype.R> and try out a live version of the app at XYZ.
+You can find the source code at <https://github.com/hadley/mastering-shiny/tree/master/neiss/prototype.R> and try out a live version of the app at <https://hadley.shinyapps.io/ms-prototype/>.
 
 ```{r prototype, echo = FALSE, out.width = "100%", fig.cap="First prototype of NEISS exploration app"}
 case_study_screenshot("prototype")
@@ -246,7 +271,7 @@ I made one other change to improve the aesthetics of the app: I forced all table
 This makes the output more aesthetically pleasing because it reduces the amount of incidental variation.
 
 A screenshot of the resulting app is shown in Figure \@ref(fig:polish-tables).
-You can find the source code at <https://github.com/hadley/mastering-shiny/tree/master/neiss/polish-tables.R> and try out a live version of the app at XYZ.
+You can find the source code at <https://github.com/hadley/mastering-shiny/tree/master/neiss/polish-tables.R> and try out a live version of the app at <https://hadley.shinyapps.io/ms-polish-tables>.
 
 ```{r polish-tables, echo = FALSE, out.width = "100%", fig.cap="The second iteration of the app improves the display by only showing the most frequent rows in the summary tables"}
 case_study_screenshot("polish-tables")
@@ -269,7 +294,7 @@ Then I condition on that input when generating the plot:
 ```
 
 A screenshot of the resulting app is shown in Figure \@ref(fig:rate-vs-count).
-You can find the source code at <https://github.com/hadley/mastering-shiny/tree/master/neiss/rate-vs-count.R> and try out a live version of the app at XYZ.
+You can find the source code at <https://github.com/hadley/mastering-shiny/tree/master/neiss/rate-vs-count.R> and try out a live version of the app at <https://hadley.shinyapps.io/ms-rate-vs-count>.
 
 ```{r rate-vs-count, echo = FALSE, out.width = "100%", fig.cap = "In this iteration, we give the user the ability to switch between displaying the count or the population standardised rate on the y-axis."}
 case_study_screenshot("rate-vs-count")
@@ -293,7 +318,7 @@ I then use `eventReactive()` to create a reactive that only updates when the but
 ```
 
 A screenshot of the resulting app is shown in Figure \@ref(fig:narrative).
-You can find the source code at <https://github.com/hadley/mastering-shiny/tree/master/neiss/narrative.R> and try out a live version of the app at XYZ.
+You can find the source code at <https://github.com/hadley/mastering-shiny/tree/master/neiss/narrative.R> and try out a live version of the app at <https://hadley.shinyapps.io/ms-narrative>.
 
 ```{r narrative, echo = FALSE, out.width = "100%", fig.cap = "The final iteration adds the ability to pull out a random narrative from the selected rows"}
 case_study_screenshot("narrative")

neiss/narrative.R

@@ -1,4 +1,6 @@
-library(tidyverse)
+library(dplyr)
+library(ggplot2)
+library(forcats)
 library(vroom)
 library(shiny)
 

neiss/polish-tables.R

@@ -1,4 +1,6 @@
-library(tidyverse)
+library(dplyr)
+library(ggplot2)
+library(forcats)
 library(vroom)
 library(shiny)
 

neiss/prototype.R

@@ -1,4 +1,6 @@
-library(tidyverse)
+library(dplyr)
+library(ggplot2)
+library(forcats)
 library(vroom)
 library(shiny)
 

neiss/rate-vs-count.R

@@ -1,4 +1,6 @@
-library(tidyverse)
+library(dplyr)
+library(ggplot2)
+library(forcats)
 library(vroom)
 library(shiny)