[education/rkward] rkward: fixes

[Stefan Rödiger]

Git commit c5814c63dacb2ecf7e16cb44a9cd5e18175e287a by Stefan Rödiger.
Committed on 04/07/2022 at 11:24.
Pushed by srodiger into branch 'master'.

fixes

M  +5    -5    rkward/RKWardRMd.xml
M  +9    -1    rkward/RKWardpapaja.xml

https://invent.kde.org/education/rkward/commit/c5814c63dacb2ecf7e16cb44a9cd5e18175e287a

diff --git a/rkward/RKWardRMd.xml b/rkward/RKWardRMd.xml
index 3f099f53..fd45ebdd 100644
--- a/rkward/RKWardRMd.xml
+++ b/rkward/RKWardRMd.xml
@@ -356,7 +356,7 @@ Let us take a simple code to make four plots of random data in a single row, for
 
 ```
 # Set graphical parameter
-par(mfrow = c(2,2))
+par(mfrow = c(2, 2))
 
 # for loop to make four plots
 
@@ -369,12 +369,12 @@ If we put the code in the following R Markdown chunk (note the 'r' in the curly
 
 ```{r, echo = TRUE, fig.cap = "Four plots of random data."}
 # Set graphical parameter
-par(mfrow = c(2,2))
+par(mfrow = c(2, 2))
 
 # for loop to make four plots
 
 for (i in 1:4) {
- plot(rnorm(10), col = i, pch = 19, main = paste("Scatter plot", LETTERS[i]))
+  plot(rnorm(10), col = i, pch = 19, main = paste("Scatter plot", LETTERS[i]))
 }
 ```
 
@@ -525,7 +525,7 @@ par(mfrow = c(2,2))
 # for loop to make four plots
 
 for (i in 1:4) {
- plot(rnorm(10), col = i, pch = 19, main = paste("Scatter plot", LETTERS[i]))
+  plot(rnorm(10), col = i, pch = 19, main = paste("Scatter plot", LETTERS[i]))
 }
 ```
 
@@ -538,7 +538,7 @@ par(mfrow = c(2,2))
 # for loop to make four plots
 
 for (i in 1:4) {
- plot(rnorm(10), col = i, pch = 19, main = paste("Scatter plot", LETTERS[i]))
+  plot(rnorm(10), col = i, pch = 19, main = paste("Scatter plot", LETTERS[i]))
 }
 ```
 
diff --git a/rkward/RKWardpapaja.xml b/rkward/RKWardpapaja.xml
index 7571e2db..49cd7702 100644
--- a/rkward/RKWardpapaja.xml
+++ b/rkward/RKWardpapaja.xml
@@ -29,7 +29,15 @@ function rangeCommand(command, def) {
 }
 </script>
  <item>
-  <match>apa_print (papaja)</match>
+  <match>Typeset Statistical Results</match>
   <fillin>${rangeCommand("papaja::apa_print(%%1)", "\"A model object\"")}</fillin>
  </item>
+ <item>
+  <match>Sanitize Term Names</match>
+  <fillin>${rangeCommand("papaja::sanitize_terms(%%1, standardized = FALSE)", "c(\"(Intercept)\", \"Factor A\")")}</fillin>
+ </item>
+ <item>
+  <match>Create a Reference File for R and R Packages</match>
+  <fillin>${rangeCommand("papaja::r_refs(file = \"literature.bib\", %%1)", "")}</fillin>
+ </item>
 </snippets>