Addin for inserting check code and check result chunks (rstudio#31)

* addin for inserting check code and check result chunks

* add example code inside pass_if and fail_if

R/insert_exercise_check_code.R

@@ -0,0 +1,62 @@
+insert_exercise_check_code <- function() {
+  random_chunk_label <- generate_random_chunk_label()
+
+  rstudioapi::insertText(glue::glue("
+```{r <<random_chunk_label>>, exercise = TRUE}
+# student code
+
+```
+
+```{r <<random_chunk_label>>-hint-1}
+# hint text
+
+```
+
+```{r <<random_chunk_label>>-hint-2}
+# hint text
+
+```
+
+```{r <<random_chunk_label>>-solution}
+# solution code
+
+```
+
+```{r <<random_chunk_label>>-check}
+# check code
+grader::check_code()
+```
+" , .open = "<<", .close = ">>"))
+}
+
+insert_exercise_check_result <- function() {
+  random_chunk_label <- generate_random_chunk_label()
+
+  rstudioapi::insertText(glue::glue("
+```{r <<random_chunk_label>>, exercise = TRUE}
+# student code
+
+```
+
+```{r <<random_chunk_label>>-hint-1}
+# hint text
+
+```
+
+```{r <<random_chunk_label>>-hint-2}
+# hint text
+
+```
+
+```{r <<random_chunk_label>>-check}
+grader::check_result(
+  grader::pass_if(~ .result == 1),
+  grader::fail_if(~ .result == 2)
+)
+```
+" , .open = "<<", .close = ">>"))
+}
+
+generate_random_chunk_label <- function() {
+  paste0(sample(letters, 16, replace = TRUE), collapse = '')
+}

inst/rstudio/addins.dcf

@@ -0,0 +1,9 @@
+Name: Insert exercise: check code
+Description: Inserts code chunks to do code checking at the cursor position.
+Binding: insert_exercise_check_code
+Interactive: false
+
+Name: Insert exercise: check result
+Description: Inserts code chunks to do result checking at the cursor position.
+Binding: insert_exercise_check_result
+Interactive: false