Test learnr sur shinyapps.io

Author: phgrosjean

inst/shiny/histogram/rsconnect/shinyapps.io/phgrosjean/histogram.dcf

@@ -5,8 +5,8 @@ account: phgrosjean
 server: shinyapps.io
 hostUrl: https://api.shinyapps.io/v1
 appId: 590204
-bundleId: 1721275
+bundleId: 1721590
 url: https://phgrosjean.shinyapps.io/histogram/
-when: 1543252660.5674
+when: 1543261164.38148
 asMultiple: FALSE
 asStatic: FALSE

inst/shiny/learnr/Test learnr/Test learnr.Rmd

@@ -0,0 +1,29 @@
+---
+title: ""
+output: learnr::tutorial
+runtime: shiny_prerendered
+---
+
+```{r setup, include=FALSE}
+library(learnr)
+knitr::opts_chunk$set(echo = FALSE)
+```
+
+Write a function that adds any two numbers and then call it:
+
+```{r add-function, exercise=TRUE, exercise.lines = 5}
+add <- function() {
+  
+}
+```
+
+```{r quiz}
+quiz(
+  question("Which package contains functions for installing other R packages?",
+    answer("base"),
+    answer("tools"),
+    answer("utils", correct = TRUE),
+    answer("codetools")
+  )
+)
+```