minor bug correction

Author: GuyliannEngels

inst/tutorials/06b_recombinaison/recombinaison.Rmd

@@ -6,7 +6,7 @@ output:
   learnr::tutorial 
 tutorial:
   id: "sdd1.06b"
-  version: 1.0.0
+  version: 1.1.0
 runtime: shiny_prerendered
 ---
 
@@ -240,7 +240,7 @@ bacteria <- tibble(
 )
 ```
 
-```{r separate, exercise = TRUE, exercise.setup = "long-prep"}
+```{r separate, exercise = TRUE, exercise.setup = "separate-prep"}
 head(bacteria)
 summary(bacteria)
 ```
@@ -315,7 +315,7 @@ weight <- tibble(
 )
 ```
 
-```{r join1, exercise = TRUE, exercise.setup = "join-prep"}
+```{r join1, exercise = TRUE, exercise.setup = "join_prep"}
 head(physico)
 summary(physico)
 
@@ -345,7 +345,7 @@ full_join(physico, weight, by = "aqua") %>.%
   knitr::kable(.)
 ```
 
-```{r join2, exercise = TRUE, exercise.setup = "join-prep"}
+```{r join2, exercise = TRUE, exercise.setup = "join_prep"}
 head(physico)
 summary(physico)
 
@@ -375,7 +375,7 @@ inner_join(physico, weight, by = "aqua") %>.%
   knitr::kable(.)
 ```
 
-```{r join3, exercise = TRUE, exercise.setup = "join-prep"}
+```{r join3, exercise = TRUE, exercise.setup = "join_prep"}
 head(physico)
 summary(physico)
 

inst/tutorials/06b_recombinaison/recombinaison.html

@@ -459,7 +459,7 @@ <h2>Diviser des colonnes dans un tableau</h2>
 <div class="tutorial-exercise" data-label="separate" data-caption="Code R" data-completion="1" data-diagnostics="1" data-startover="1" data-lines="0">
 <pre class="text"><code>head(bacteria)
 summary(bacteria)</code></pre>
-<script type="application/json" data-opts-chunk="1">{"fig.width":6.5,"fig.height":4,"fig.retina":2,"fig.align":"default","fig.keep":"high","fig.show":"asis","out.width":624,"warning":true,"error":false,"message":true,"exercise.df_print":"paged","exercise.timelimit":60,"exercise.setup":"long-prep","exercise.checker":["function (label, user_code, solution_code, check_code, envir_result, ","    evaluate_result, ...) ","{","    list(message = \"Your answer is recorded!\", correct = TRUE, ","        type = \"info\", location = \"append\")","}"]}</script>
+<script type="application/json" data-opts-chunk="1">{"fig.width":6.5,"fig.height":4,"fig.retina":2,"fig.align":"default","fig.keep":"high","fig.show":"asis","out.width":624,"warning":true,"error":false,"message":true,"exercise.df_print":"paged","exercise.timelimit":60,"exercise.setup":"separate-prep","exercise.checker":["function (label, user_code, solution_code, check_code, envir_result, ","    evaluate_result, ...) ","{","    list(message = \"Your answer is recorded!\", correct = TRUE, ","        type = \"info\", location = \"append\")","}"]}</script>
 </div>
 <div class="tutorial-exercise-support" data-label="separate-hint-1" data-caption="Code R" data-completion="1" data-diagnostics="1" data-startover="1" data-lines="0">
 <pre class="text"><code># snippet correspondant
@@ -590,13 +590,27 @@ <h2>Combinaison de deux tableaux</h2>
 </tr>
 </tbody>
 </table>
+<div class="tutorial-exercise-support" data-label="join_prep" data-caption="Code R" data-completion="1" data-diagnostics="1" data-startover="1" data-lines="0">
+<pre class="text"><code>set.seed(42)
+
+physico &lt;- tibble(
+  aqua = letters[1:5],
+  temp = rnorm(n = 5,mean = 25, sd = 2),
+  salinity = rnorm(n = 5, mean = 35,  sd = 2)
+)
+
+weight &lt;- tibble(
+  aqua = letters[2:6],
+  weight = rnorm(n = 5, mean = 1.5, sd = 0.5)
+)</code></pre>
+</div>
 <div class="tutorial-exercise" data-label="join1" data-caption="Code R" data-completion="1" data-diagnostics="1" data-startover="1" data-lines="0">
 <pre class="text"><code>head(physico)
 summary(physico)
 
 head(weight)
 summary(weight)</code></pre>
-<script type="application/json" data-opts-chunk="1">{"fig.width":6.5,"fig.height":4,"fig.retina":2,"fig.align":"default","fig.keep":"high","fig.show":"asis","out.width":624,"warning":true,"error":false,"message":true,"exercise.df_print":"paged","exercise.timelimit":60,"exercise.setup":"join-prep","exercise.checker":["function (label, user_code, solution_code, check_code, envir_result, ","    evaluate_result, ...) ","{","    list(message = \"Your answer is recorded!\", correct = TRUE, ","        type = \"info\", location = \"append\")","}"]}</script>
+<script type="application/json" data-opts-chunk="1">{"fig.width":6.5,"fig.height":4,"fig.retina":2,"fig.align":"default","fig.keep":"high","fig.show":"asis","out.width":624,"warning":true,"error":false,"message":true,"exercise.df_print":"paged","exercise.timelimit":60,"exercise.setup":"join_prep","exercise.checker":["function (label, user_code, solution_code, check_code, envir_result, ","    evaluate_result, ...) ","{","    list(message = \"Your answer is recorded!\", correct = TRUE, ","        type = \"info\", location = \"append\")","}"]}</script>
 </div>
 <div class="tutorial-exercise-support" data-label="join1-hint-1" data-caption="Code R" data-completion="1" data-diagnostics="1" data-startover="1" data-lines="0">
 <pre class="text"><code># snippet correspondant
@@ -667,7 +681,7 @@ <h2>Combinaison de deux tableaux</h2>
 
 head(weight)
 summary(weight)</code></pre>
-<script type="application/json" data-opts-chunk="1">{"fig.width":6.5,"fig.height":4,"fig.retina":2,"fig.align":"default","fig.keep":"high","fig.show":"asis","out.width":624,"warning":true,"error":false,"message":true,"exercise.df_print":"paged","exercise.timelimit":60,"exercise.setup":"join-prep","exercise.checker":["function (label, user_code, solution_code, check_code, envir_result, ","    evaluate_result, ...) ","{","    list(message = \"Your answer is recorded!\", correct = TRUE, ","        type = \"info\", location = \"append\")","}"]}</script>
+<script type="application/json" data-opts-chunk="1">{"fig.width":6.5,"fig.height":4,"fig.retina":2,"fig.align":"default","fig.keep":"high","fig.show":"asis","out.width":624,"warning":true,"error":false,"message":true,"exercise.df_print":"paged","exercise.timelimit":60,"exercise.setup":"join_prep","exercise.checker":["function (label, user_code, solution_code, check_code, envir_result, ","    evaluate_result, ...) ","{","    list(message = \"Your answer is recorded!\", correct = TRUE, ","        type = \"info\", location = \"append\")","}"]}</script>
 </div>
 <div class="tutorial-exercise-support" data-label="join2-hint-1" data-caption="Code R" data-completion="1" data-diagnostics="1" data-startover="1" data-lines="0">
 <pre class="text"><code># snippet correspondant
@@ -726,7 +740,7 @@ <h2>Combinaison de deux tableaux</h2>
 
 head(weight)
 summary(weight)</code></pre>
-<script type="application/json" data-opts-chunk="1">{"fig.width":6.5,"fig.height":4,"fig.retina":2,"fig.align":"default","fig.keep":"high","fig.show":"asis","out.width":624,"warning":true,"error":false,"message":true,"exercise.df_print":"paged","exercise.timelimit":60,"exercise.setup":"join-prep","exercise.checker":["function (label, user_code, solution_code, check_code, envir_result, ","    evaluate_result, ...) ","{","    list(message = \"Your answer is recorded!\", correct = TRUE, ","        type = \"info\", location = \"append\")","}"]}</script>
+<script type="application/json" data-opts-chunk="1">{"fig.width":6.5,"fig.height":4,"fig.retina":2,"fig.align":"default","fig.keep":"high","fig.show":"asis","out.width":624,"warning":true,"error":false,"message":true,"exercise.df_print":"paged","exercise.timelimit":60,"exercise.setup":"join_prep","exercise.checker":["function (label, user_code, solution_code, check_code, envir_result, ","    evaluate_result, ...) ","{","    list(message = \"Your answer is recorded!\", correct = TRUE, ","        type = \"info\", location = \"append\")","}"]}</script>
 </div>
 <div class="tutorial-exercise-support" data-label="join3-hint-1" data-caption="Code R" data-completion="1" data-diagnostics="1" data-startover="1" data-lines="0">
 <pre class="text"><code># snippet correspondant
@@ -770,7 +784,7 @@ <h2>Conclusion</h2>
 </script>
 
 <script type="application/shiny-prerendered" data-context="server">
-learnr:::register_http_handlers(session, metadata = list("sdd1.06b", "1.0.0"))
+learnr:::register_http_handlers(session, metadata = list("sdd1.06b", "1.1.0"))
 </script>
 
 <script type="application/shiny-prerendered" data-context="server">
@@ -835,7 +849,7 @@ <h2>Conclusion</h2>
 <!--/html_preserve-->
 <!--html_preserve-->
 <script type="application/shiny-prerendered" data-context="execution_dependencies">
-{"type":"list","attributes":{"names":{"type":"character","attributes":{},"value":["packages"]}},"value":[{"type":"list","attributes":{"names":{"type":"character","attributes":{},"value":["packages","version"]},"class":{"type":"character","attributes":{},"value":["data.frame"]},"row.names":{"type":"integer","attributes":{},"value":[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118]}},"value":[{"type":"character","attributes":{},"value":["acepack","assertthat","backports","base","base64enc","BioDataScience","broom","cellranger","chart","checkmate","cli","cluster","codetools","colorspace","compiler","cowplot","crayon","data.io","data.table","datasets","digest","dplyr","ellipse","evaluate","farver","flow","forcats","foreign","Formula","generics","gganimate","ggplot2","ggplotify","ggpubr","glue","graphics","grDevices","grid","gridExtra","gridGraphics","gtable","haven","highr","Hmisc","hms","htmlTable","htmltools","htmlwidgets","httpuv","httr","igraph","inline","jsonlite","knitr","later","lattice","latticeExtra","lazyeval","learnr","lubridate","magick","magrittr","markdown","MASS","Matrix","methods","mime","modelr","mongolite","munsell","nlme","nnet","pillar","pkgconfig","plyr","prettyunits","progress","promises","proto","pryr","purrr","R6","RColorBrewer","Rcpp","readr","readxl","remotes","rlang","rmarkdown","rpart","rprojroot","rstudioapi","rvcheck","rvest","scales","SciViews","shiny","splines","stats","stringi","stringr","survival","svMisc","tibble","tidyr","tidyselect","tidyverse","tools","tsibble","tweenr","utils","viridis","viridisLite","withr","xfun","xml2","xtable","yaml"]},{"type":"character","attributes":{},"value":["1.4.1","0.2.1","1.1.3","3.5.3","0.1-3","2019.3.0","0.5.2","1.1.0","1.3.0","1.9.1","1.1.0","2.0.8","0.2-16","1.4-1","3.5.3","0.9.4","1.3.4","1.2.2","1.12.2","3.5.3","0.6.18","0.8.0.1","0.4.1","0.13","1.1.0","1.0.0","0.4.0","0.8-71","1.2-3","0.0.2","1.0.3","3.1.1","0.0.3","0.2","1.3.1","3.5.3","3.5.3","3.5.3","2.3","0.3-0","0.3.0","2.1.0","0.8","4.2-0","0.4.2","1.13.1","0.3.6","1.3","1.5.1","1.4.0","1.2.4","0.3.15","1.6","1.22","0.8.0","0.20-38","0.6-28","0.2.2","0.9.2.1","1.7.4","2.0","1.5","0.9","7.3-51.3","1.2-17","3.5.3","0.6","0.1.4","2.0.1","0.5.0","3.1-138","7.3-12","1.3.1","2.0.2","1.8.4","1.0.2","1.2.0","1.0.1","1.0.0","0.1.4","0.3.2","2.4.0","1.1-2","1.0.1","1.3.1","1.3.1","2.0.2","0.3.4","1.12","4.1-13","1.3-2","0.10","0.1.3","0.3.2","1.0.0","1.1.0","1.3.0","3.5.3","3.5.3","1.4.3","1.4.0","2.44-1.1","1.1.0","2.1.1","0.8.3","0.2.5","1.2.1","3.5.3","0.7.0","1.0.1","3.5.3","0.5.1","0.3.0","2.1.2","0.6","1.2.0","1.8-3","2.2.0"]}]}]}
+{"type":"list","attributes":{"names":{"type":"character","attributes":{},"value":["packages"]}},"value":[{"type":"list","attributes":{"names":{"type":"character","attributes":{},"value":["packages","version"]},"class":{"type":"character","attributes":{},"value":["data.frame"]},"row.names":{"type":"integer","attributes":{},"value":[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118]}},"value":[{"type":"character","attributes":{},"value":["acepack","assertthat","backports","base","base64enc","BioDataScience","broom","cellranger","chart","checkmate","cli","cluster","codetools","colorspace","compiler","cowplot","crayon","data.io","data.table","datasets","digest","dplyr","ellipse","evaluate","farver","flow","forcats","foreign","Formula","generics","gganimate","ggplot2","ggplotify","ggpubr","glue","graphics","grDevices","grid","gridExtra","gridGraphics","gtable","haven","highr","Hmisc","hms","htmlTable","htmltools","htmlwidgets","httpuv","httr","igraph","inline","jsonlite","knitr","later","lattice","latticeExtra","lazyeval","learnr","lubridate","magick","magrittr","markdown","MASS","Matrix","methods","mime","modelr","mongolite","munsell","nlme","nnet","pillar","pkgconfig","plyr","prettyunits","progress","promises","proto","pryr","purrr","R6","RColorBrewer","Rcpp","readr","readxl","remotes","rlang","rmarkdown","rpart","rprojroot","rstudioapi","rvcheck","rvest","scales","SciViews","shiny","splines","stats","stringi","stringr","survival","svMisc","tibble","tidyr","tidyselect","tidyverse","tools","tsibble","tweenr","utils","viridis","viridisLite","withr","xfun","xml2","xtable","yaml"]},{"type":"character","attributes":{},"value":["1.4.1","0.2.1","1.1.3","3.5.3","0.1-3","2019.4.0","0.5.2","1.1.0","1.3.0","1.9.1","1.1.0","2.0.8","0.2-16","1.4-1","3.5.3","0.9.4","1.3.4","1.2.2","1.12.2","3.5.3","0.6.18","0.8.0.1","0.4.1","0.13","1.1.0","1.0.0","0.4.0","0.8-71","1.2-3","0.0.2","1.0.3","3.1.1","0.0.3","0.2","1.3.1","3.5.3","3.5.3","3.5.3","2.3","0.3-0","0.3.0","2.1.0","0.8","4.2-0","0.4.2","1.13.1","0.3.6","1.3","1.5.1","1.4.0","1.2.4","0.3.15","1.6","1.22","0.8.0","0.20-38","0.6-28","0.2.2","0.9.2.1","1.7.4","2.0","1.5","0.9","7.3-51.3","1.2-17","3.5.3","0.6","0.1.4","2.0.1","0.5.0","3.1-138","7.3-12","1.3.1","2.0.2","1.8.4","1.0.2","1.2.0","1.0.1","1.0.0","0.1.4","0.3.2","2.4.0","1.1-2","1.0.1","1.3.1","1.3.1","2.0.2","0.3.4","1.12","4.1-13","1.3-2","0.10","0.1.3","0.3.2","1.0.0","1.1.0","1.3.0","3.5.3","3.5.3","1.4.3","1.4.0","2.44-1.1","1.1.0","2.1.1","0.8.3","0.2.5","1.2.1","3.5.3","0.7.0","1.0.1","3.5.3","0.5.1","0.3.0","2.1.2","0.6","1.2.0","1.8-3","2.2.0"]}]}]}
 </script>
 <!--/html_preserve-->
 </div>