Merge pull request #27 from jonmcalder/master

Add xaringan slide engine (plus related updates)

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: pRojects
 Title: Manage Project Directories for R Projects
-Version: 0.0.1.9002
+Version: 0.0.1.9003
 Authors@R: c(
   person("Steph", "Locke", email = "steph@itsalocke.com", role = c("aut", "cre")),
   person("Jon", "Calder", email = "jonmcalder@gmail.com", role = "aut")

R/createTrainingProject.R

@@ -21,9 +21,8 @@ createTrainingProject <- function(name,
                                   slideEngine = "rmarkdown",
                                   ...) {
   # Supported packages
-  handoutEngine <-
-    match.arg(handoutEngine, c("rmarkdown", "bookdown", "tufte"))
-  slideEngine <- match.arg(slideEngine, c("rmarkdown", "revealjs"))
+  handoutEngine <- match.arg(handoutEngine, c("rmarkdown", "bookdown", "tufte"))
+  slideEngine <- match.arg(slideEngine, c("rmarkdown", "revealjs", "xaringan"))
 
   # Installation dir
   usePackrat <- !methods::hasArg("packrat")
@@ -54,7 +53,18 @@ createTrainingProject <- function(name,
 
   # Slides prep
   if ("slides" %in% dirs) {
-    devtools:::add_desc_package(name,"Imports",slideEngine)
+    devtools:::add_desc_package(name, "Imports", slideEngine)
+
+    if (slideEngine != "rmarkdown") {
+      message(paste(slideEngine, "demo added"))
+      file.copy(
+        list.files(system.file("templates", slideEngine, package = "pRojects"), full.names = TRUE),
+        file.path(name, "slides"),
+        overwrite = TRUE,
+        recursive = TRUE
+      )
+    }
+
   }
 
   if (usePackrat) {

R/shinyGadget.R

@@ -6,7 +6,7 @@ projectGadget <- function() {
       shiny::inputPanel(
         shiny::selectInput(
           "projectType", label = "Project Type",
-          choices = c("Basic","Analysis","Package","Training"),
+          choices = c("Basic", "Analysis", "Package", "Training"),
           selected = "Basic"
         ),
         shiny::textInput("name", "Project Name")
@@ -57,10 +57,10 @@ projectGadget <- function() {
                           selected = c("data", "handouts", "slides"),
                           multiple = TRUE),
                         shiny::radioButtons("handoutE", label = "Handouts",
-                                            choices=c("rmarkdown","bookdown","tufte"),
+                                            choices = c("rmarkdown", "bookdown", "tufte"),
                                             selected = "rmarkdown"),
                         shiny::radioButtons("slideE", label = "Slides",
-                                            choices=c("rmarkdown","revealjs"),
+                                            choices = c("rmarkdown", "revealjs", "xaringan"),
                                             selected = "rmarkdown")
         )
 

inst/templates/revealjs/revealjs_slides.Rmd

@@ -0,0 +1,37 @@
+---
+title: "revealjs slides"
+output:
+  revealjs::revealjs_presentation:
+    self_contained: true
+    theme: sky
+    highlight: pygments
+    center: true
+    transition: fade
+    reveal_options:
+      slideNumber: true
+      previewLinks: true
+---
+
+## R Markdown
+
+This is an R Markdown presentation. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see <http://rmarkdown.rstudio.com>.
+
+When you click the **Knit** button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document.
+
+## Slide with Bullets
+
+- Bullet 1
+- Bullet 2
+- Bullet 3
+
+## Slide with R Code and Output
+
+```{r}
+summary(cars)
+```
+
+## Slide with Plot
+
+```{r, echo=FALSE}
+plot(cars)
+```