format docs

insightsengineering · Feb 22, 2024 · 1fed0ce · 1fed0ce
1 parent a381a01
commit 1fed0ce
Show file tree

Hide file tree

Showing 2 changed files with 26 additions and 6 deletions.
diff --git a/R/tm_g_scatterplotmatrix.R b/R/tm_g_scatterplotmatrix.R
@@ -22,16 +22,26 @@
 #' data <- within(data, {
 #'   countries <- data.frame(
 #'     id = c("DE", "FR", "IT", "ES", "PT", "GR", "NL", "BE", "LU", "AT"),
-#'     government = factor(c(2, 2, 2, 1, 2, 2, 1, 1, 1, 2), labels = c("Monarchy", "Republic")),
-#'     language_family = factor(c(1, 3, 3, 3, 3, 2, 1, 1, 3, 1), labels = c("Germanic", "Hellenic", "Romance")),
+#'     government = factor(
+#'       c(2, 2, 2, 1, 2, 2, 1, 1, 1, 2),
+#'       labels = c("Monarchy", "Republic")
+#'     ),
+#'     language_family = factor(
+#'       c(1, 3, 3, 3, 3, 2, 1, 1, 3, 1),
+#'       labels = c("Germanic", "Hellenic", "Romance")
+#'     ),
 #'     population = c(83, 67, 60, 47, 10, 11, 17, 11, 0.6, 9),
 #'     area = c(357, 551, 301, 505, 92, 132, 41, 30, 2.6, 83),
 #'     gdp = c(3.4, 2.7, 2.1, 1.4, 0.3, 0.2, 0.7, 0.5, 0.1, 0.4),
 #'     debt = c(2.1, 2.3, 2.4, 2.6, 2.3, 2.4, 2.3, 2.4, 2.3, 2.4)
 #'   )
 #'   sales <- data.frame(
 #'     id = 1:50,
-#'     country_id = sample(c("DE", "FR", "IT", "ES", "PT", "GR", "NL", "BE", "LU", "AT"), 50, replace = TRUE),
+#'     country_id = sample(
+#'       c("DE", "FR", "IT", "ES", "PT", "GR", "NL", "BE", "LU", "AT"),
+#'       size = 50,
+#'       replace = TRUE
+#'     ),
 #'     year = sort(sample(2010:2020, 50, replace = TRUE)),
 #'     venue = sample(c("small", "medium", "large", "online"), 50, replace = TRUE),
 #'     cancelled = sample(c(TRUE, FALSE), 50, replace = TRUE),

diff --git a/man/tm_g_scatterplotmatrix.Rd b/man/tm_g_scatterplotmatrix.Rd