R/author_templates.R

In Data-Camp/datacamp: Easily create interactive courses for www.DataCamp.com with R Markdown

normal_body <-
'
*** =instructions
- instruction 1
- instruction 2

*** =hint
hint comes here

*** =pre_exercise_code
```{%1$s}
# pec
```

*** =sample_code
```{%1$s}
# sample code
```

*** =solution
```{%1$s}
# solution code
```

*** =sct
```{%1$s}
success_msg("Great work!")
```
'

mce_body <-
"
*** =instructions
- option 1
- option 2
- option 3

*** =hint
hint

*** =pre_exercise_code
```{%1$s}
# pec
```
"

sct_mce_body <- list(r = "
*** =sct
```{r}
test_mc(2, feedback_msgs = c('wrong', 'right', 'wrong')) # if 2 is the correct option.
```
", python = "
*** =sct
```{python}
test_mc(2, msgs = ['wrong', 'right', 'wrong']) # if 2 is the correct option.
```
")

rstudio_mce_body <-
"
*** =instructions
- option 1
- option 2
- option 3

*** =hint
hint

*** =attachments
first_file: www.example.com/firstfile
second_file: www.example.com/secondfile

*** =sct
```{%1$s}
test_mc(2) # if 2 is the correct option.
```
"

video_body <-
"
*** =video_link
//player.vimeo.com/video/154783078

*** =video_hls
//videos.datacamp.com/transcoded/000_placeholders/v1/hls-temp.master.m3u8
"

shiny_body <-
'
*** =instructions
- instruction 1
- instruction 2

*** =hint
hint comes here

*** =pre_exercise_code
```{%1$s}
# pec
```

*** =sample_code
```{%1$s app.R}
# sample code
```

*** =solution
```{%1$s app.R}
# solution code
```

*** =sct
```{%1$s}
success_msg("Great work!")
```
'

course_yaml_template <-
"title: insert course title here
author_field: insert author name here
description: insert course description here
"

chapter_yaml_template <-
"---
title       : %s
description : %s
"