diff --git a/.Rbuildignore b/.Rbuildignore
index 2735ea3..968819f 100644
--- a/.Rbuildignore
+++ b/.Rbuildignore
@@ -12,4 +12,5 @@
 ^LICENSE\.md$
 ^README\.Rmd$
 ^data-raw$
+^dev$
 ^\.github$
diff --git a/DESCRIPTION b/DESCRIPTION
index af6527b..85fdc5c 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -27,13 +27,16 @@ Imports:
     DT,
     dygraphs,
     ggplot2 (>= 3.0.0),
+    htmltools,
     magrittr,
     plotly,
     stats,
     utils
-Suggests: 
+Suggests:
+    hexbin,
+    MASS,
     testthat
 Encoding: UTF-8
 LazyData: true
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.1.1
+RoxygenNote: 7.3.3
diff --git a/NAMESPACE b/NAMESPACE
index 69040ae..524c5e2 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -8,15 +8,18 @@ export(random_ggplot)
 export(random_ggplotly)
 export(random_image)
 export(random_lm)
+export(random_mock)
 export(random_print)
 export(random_table)
 export(random_text)
 importFrom(DT,datatable)
 importFrom(attempt,stop_if_all)
+importFrom(attempt,stop_if_not)
 importFrom(dygraphs,dygraph)
 importFrom(ggplot2,aes)
 importFrom(ggplot2,coord_flip)
 importFrom(ggplot2,facet_grid)
+importFrom(ggplot2,geom_area)
 importFrom(ggplot2,geom_bar)
 importFrom(ggplot2,geom_bin2d)
 importFrom(ggplot2,geom_boxplot)
@@ -42,6 +45,9 @@ importFrom(ggplot2,stat)
 importFrom(ggplot2,theme_minimal)
 importFrom(ggplot2,xlim)
 importFrom(ggplot2,ylim)
+importFrom(htmltools,HTML)
+importFrom(htmltools,tagList)
+importFrom(htmltools,tags)
 importFrom(magrittr,"%>%")
 importFrom(plotly,ggplotly)
 importFrom(stats,HoltWinters)
diff --git a/NEWS.md b/NEWS.md
index 2f5d6e2..aeafbd2 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,3 +1,10 @@
 # shinipsum 0.0.0.9000
 
-* Added a `NEWS.md` file to track changes to the package.
+* `random_ggplot()` gains a `"ts"` type (alias `"timeseries"`) returning a
+  time-series oriented plot with a `Date` on the x axis (#4).
+* New `random_mock()`: builds a quick "zoning" of a Shiny UI as a row of
+  bordered, labelled bootstrap columns (#1).
+* `random_text()` gains a `var` argument to get visually different slices of
+  the lorem-ipsum corpus on repeated calls (#3).
+* Fixed a `ggplot2` deprecation warning in `random_ggplot("line")`
+  (`size` -> `linewidth`) (#13).
diff --git a/R/Mock.R b/R/Mock.R
new file mode 100644
index 0000000..a7eb14b
--- /dev/null
+++ b/R/Mock.R
@@ -0,0 +1,94 @@
+#' A Mock UI Layout
+#'
+#' Build a quick "zoning" of a Shiny UI: a row of bootstrap columns, each one
+#' drawn as an empty bordered box with a centered label. Handy to sketch the
+#' layout of an app before any real content exists.
+#'
+#' The returned object is a [htmltools::tagList()] (a self-contained CSS `<style>`
+#' block plus the columns), so it can be dropped directly inside a
+#' `shiny::fluidPage()` / `bslib::page_fluid()` and rendered as is.
+#'
+#' @param widths integer vector of bootstrap column widths (each between 1 and
+#'   12). Its length defines the number of mock zones.
+#' @param heights integer vector giving the visual height of each zone, expressed
+#'   as a number of blank lines. Recycled to the length of `widths`. Default 3.
+#' @param labels character vector of zone labels. Recycled to the length of
+#'   `widths`. When `NULL` (default), short random lorem-ipsum labels are used.
+#'
+#' @importFrom htmltools tagList tags HTML
+#' @importFrom attempt stop_if_not
+#'
+#' @return a [htmltools::tagList()]
+#'
+#' @export
+#'
+#' @examples
+#' random_mock(c(4, 8))
+#' random_mock(c(6, 6), labels = c("a plot here", "a table here"))
+random_mock <- function(widths, heights = 3, labels = NULL) {
+  stop_if_not(
+    widths,
+    ~ is.numeric(.x) && length(.x) >= 1L && all(!is.na(.x)) &&
+      all(.x == as.integer(.x)) && all(.x >= 1L & .x <= 12L),
+    "`widths` must be a non-empty vector of integers between 1 and 12"
+  )
+  stop_if_not(
+    heights,
+    ~ is.numeric(.x) && length(.x) >= 1L && all(!is.na(.x)) &&
+      all(.x == as.integer(.x)) && all(.x >= 1L),
+    "`heights` must be a non-empty vector of integers >= 1"
+  )
+
+  n <- length(widths)
+  heights <- rep_len(as.integer(heights), n)
+  if (is.null(labels)) {
+    labels <- vapply(
+      seq_len(n),
+      function(i) {
+        random_text(nwords = 3, var = i)
+      },
+      character(1)
+    )
+  }
+  labels <- rep_len(as.character(labels), n)
+
+  cols <- lapply(
+    seq_len(n),
+    function(i) {
+      tags$div(
+        class = paste0("col-sm-", widths[i], " shinipsum-mock"),
+        lapply(
+          seq_len(heights[i]),
+          function(j) {
+            tags$p(HTML("&nbsp;"))
+          }
+        ),
+        tags$p(class = "shinipsum-mock-label", labels[i])
+      )
+    }
+  )
+
+  tagList(
+    mock_css(),
+    tags$div(class = "row", cols)
+  )
+}
+
+#' @noRd
+mock_css <- function() {
+  tags$style(HTML("
+    .shinipsum-mock {
+      border: 2px solid #333;
+      margin: 0.5em 0;
+      padding: 0.5em;
+      background: repeating-linear-gradient(
+        45deg, #f6f6f6, #f6f6f6 10px, #efefef 10px, #efefef 20px
+      );
+    }
+    .shinipsum-mock-label {
+      text-align: center;
+      font-weight: bold;
+      margin: 0;
+    }
+  "))
+}
diff --git a/R/Plot.R b/R/Plot.R
index 217f78e..be0e05c 100644
--- a/R/Plot.R
+++ b/R/Plot.R
@@ -2,9 +2,9 @@
 #'
 #' This function returns a ggplot object, which can be passed to `renderPlot` and `plotOutput`
 #'
-#' @param type type of the geom. Can be any of "random", "point", "bar", "boxplot","col", "tile", "line", "bin2d", "contour", "density", "density_2d", "dotplot", "hex", "freqpoly", "histogram", "ribbon", "raster", "tile", "violin" and defines the geom of the ggplot. Default is "random", and chooses a random geom for you.
+#' @param type type of the geom. Can be any of "random", "point", "bar", "boxplot","col", "tile", "line", "bin2d", "contour", "density", "density_2d", "dotplot", "hex", "freqpoly", "histogram", "ribbon", "raster", "violin", "ts" (alias "timeseries") and defines the geom of the ggplot. Default is "random", and chooses a random geom for you. The "ts" type returns a time-series oriented plot, with a `Date` on the x axis.
 #'
-#' @importFrom ggplot2 ggplot aes geom_point geom_bar scale_color_viridis_d theme_minimal geom_boxplot labs coord_flip geom_tile geom_line facet_grid geom_col scale_fill_viridis_c
+#' @importFrom ggplot2 ggplot aes geom_point geom_bar scale_color_viridis_d theme_minimal geom_boxplot labs coord_flip geom_tile geom_line geom_area facet_grid geom_col scale_fill_viridis_c
 #' @importFrom ggplot2 xlim ylim geom_bin2d geom_contour geom_density geom_density_2d geom_dotplot
 #' @importFrom ggplot2 geom_hex geom_freqpoly stat geom_histogram geom_ribbon geom_raster geom_violin
 #'
@@ -17,8 +17,11 @@ random_ggplot <- function(type = c("random", "point", "bar",
                                    "line", "bin2d", "contour",
                                    "density", "density_2d", "dotplot",
                                    "hex", "freqpoly", "histogram",
-                                   "ribbon", "raster", "tile",
-                                   "violin")) {
+                                   "ribbon", "raster",
+                                   "violin", "ts")) {
+  if (length(type) == 1L && identical(type, "timeseries")) {
+    type <- "ts"
+  }
   type_matched <- match.arg(type)
 
   if (type_matched == "random") {
@@ -33,7 +36,7 @@ random_ggplot <- function(type = c("random", "point", "bar",
       "bar" = sample(10:11, 1),
       "boxplot" = sample(20:21, 1),
       "col" = sample(30:31, 1),
-      "tile" = sample(40:41, 1),
+      "tile" = sample(c(40:41, 160:161), 1),
       "line" = sample(50:51, 1),
       "bin2d" = sample(60:61, 1),
       "contour" = sample(70:71, 1),
@@ -45,8 +48,8 @@ random_ggplot <- function(type = c("random", "point", "bar",
       "histogram" = sample(130:131, 1),
       "ribbon" = sample(140:141, 1),
       "raster" = sample(150:151, 1),
-      "tile" = sample(160:161, 1),
-      "violin" = sample(170:171, 1)
+      "violin" = sample(170:171, 1),
+      "ts" = sample(180:182, 1)
     )
 
   res <- switch(as.character(r),
@@ -144,7 +147,7 @@ random_ggplot <- function(type = c("random", "point", "bar",
     "50" = list(
       ggplot(datasets::women) +
         aes(height, weight) +
-        geom_line(size = 2) +
+        geom_line(linewidth = 2) +
         theme_minimal()
     ),
     "51" = list(
@@ -299,6 +302,36 @@ random_ggplot <- function(type = c("random", "point", "bar",
       ggplot(datasets::iris, aes(Species, Sepal.Length)) +
         geom_violin() +
         theme_minimal()
+    ),
+    "180" = list(
+      ggplot(ggplot2::economics) +
+        aes(date, unemploy) +
+        geom_line() +
+        labs(x = "date", y = "unemployment") +
+        theme_minimal()
+    ),
+    "181" = list(
+      ggplot(
+        data.frame(
+          date = seq(
+            as.Date("1949-01-01"),
+            by = "month",
+            length.out = length(datasets::AirPassengers)
+          ),
+          passengers = as.numeric(datasets::AirPassengers)
+        )
+      ) +
+        aes(date, passengers) +
+        geom_line() +
+        geom_point(size = 0.8) +
+        theme_minimal()
+    ),
+    "182" = list(
+      ggplot(ggplot2::economics) +
+        aes(date, psavert) +
+        geom_area(fill = "#440154FF", alpha = 0.7) +
+        labs(x = "date", y = "personal savings rate") +
+        theme_minimal()
     )
   )
   res[[1]]
diff --git a/R/Text.R b/R/Text.R
index fa8bde6..38c1b4e 100644
--- a/R/Text.R
+++ b/R/Text.R
@@ -3,14 +3,19 @@
 #' @param nchars number of characters. One of the two params should be left NULL.
 #' @param nwords number of words to return. One of the two params should be left NULL.
 #' @param offset number of characters or words to offset the result by. Defaults to 0.
+#' @param var integer >= 1 selecting a "variant" of the text: `var = 1` (the
+#'   default) returns the historical result, while higher values return distinct
+#'   slices of the lorem-ipsum corpus. Handy to get visually different chunks
+#'   when calling `random_text()` repeatedly (e.g. in a bulleted list). The
+#'   corpus wraps around when `var` is large.
 #'
-#' @importFrom attempt stop_if_all
+#' @importFrom attempt stop_if_all stop_if_not
 #'
 #' @return a text
 #'
 #' @export
 
-random_text <- function(nchars = NULL, nwords = NULL, offset=0){
+random_text <- function(nchars = NULL, nwords = NULL, offset = 0, var = 1){
   stop_if_all(
     c(nchars, nwords),
     is.null,
@@ -19,20 +24,40 @@ random_text <- function(nchars = NULL, nwords = NULL, offset=0){
   stop_if_all(
     list(nchars, nwords),
     ~ !is.null(.x),
-    "You can't chose both nchars and nwords"
+    "You can't choose both nchars and nwords"
   )
+  stop_if_not(
+    var,
+    ~ is.numeric(.x) && length(.x) == 1L && !is.na(.x) &&
+      .x >= 1L && .x == as.integer(.x),
+    "`var` must be a single integer >= 1"
+  )
+  var <- as.integer(var)
 
   if (!is.null(nchars)){
-    res <- substr(
-      shinipsum::lorem,
-      1+offset,
-      nchars+offset
-    )
+    if (var == 1L) {
+      res <- substr(
+        shinipsum::lorem,
+        1 + offset,
+        nchars + offset
+      )
+    } else {
+      total <- nchar(shinipsum::lorem)
+      start <- (offset + (var - 1L) * nchars) %% total
+      doubled <- paste0(shinipsum::lorem, shinipsum::lorem)
+      res <- substr(doubled, 1 + start, nchars + start)
+    }
   } else {
-    res <- paste(shinipsum::lorem_words[1+offset:nwords+offset], collapse = " ")
+    if (var == 1L) {
+      res <- paste(shinipsum::lorem_words[1+offset:nwords+offset], collapse = " ")
+    } else {
+      n <- length(shinipsum::lorem_words)
+      start <- (offset + (var - 1L) * nwords) %% n
+      idx <- ((start + seq_len(nwords) - 1L) %% n) + 1L
+      res <- paste(shinipsum::lorem_words[idx], collapse = " ")
+    }
   }
 
   substr(res, 1, 1) <- toupper(substr(res, 1, 1))
   res
 }
-
diff --git a/R/globals.R b/R/globals.R
index 9560def..9e9b2de 100644
--- a/R/globals.R
+++ b/R/globals.R
@@ -5,7 +5,7 @@ utils::globalVariables(unique(c(
   "mpg", "disp", "vs", "wt", "qsec", "cyl",
   "Solar.R", "Wind", "Month", "Temp", "Ozone",
   "Var1", "Freq",
-  "date", "unemploy",
+  "date", "unemploy", "psavert", "passengers",
   "waiting", "eruptions", "density",
   "year", "month", "median",
   "height", "weight",
diff --git a/dev/SUIVI_AUTONOME.md b/dev/SUIVI_AUTONOME.md
new file mode 100644
index 0000000..2495f11
--- /dev/null
+++ b/dev/SUIVI_AUTONOME.md
@@ -0,0 +1,88 @@
+# Suivi - session autonome (issues shinipsum)
+
+Branche : `feat/text-variants-and-ts-plot`
+Base : `master` (commit de départ : voir `git merge-base`)
+Méthode : TDD strict (red d'abord, fix ensuite), couverture maintenue, `pr-reviewer` lancé à intervalles.
+
+## Contexte
+
+PR #15 (`fix/multiple-issues`, déjà ouverte, CI verte) couvre déjà les issues **#13**, **#9**, **#5**.
+Cette branche s'attaque aux issues restantes.
+
+## Plan
+
+| # | Titre | Statut |
+|---|-------|--------|
+| #4 | option série temporelle pour `random_ggplot()` | fait |
+| #1 | `mock_frame()` : zoning de blocs UI Shiny -> `random_mock()` | fait |
+| #3 | variantes de texte pour `random_text()` -> arg `var` | fait |
+
+## Journal
+
+### #4 - random_ggplot("ts") / "timeseries" - FAIT
+- Red : `tests/testthat/test-ggplot-ts.R` (ggplot avec `date` de classe `Date`, alias `timeseries`, présence dans le pool aléatoire) -> 3 FAIL sur `match.arg`.
+- Green : ajout du type `"ts"` (alias `"timeseries"`) dans `R/Plot.R`, 3 variantes (codes 180-182) :
+  - 180 : `economics$unemploy` en `geom_line`
+  - 181 : `AirPassengers` (data.frame avec colonne `date` mensuelle) en `geom_line` + `geom_point`
+  - 182 : `economics$psavert` en `geom_area`
+- Bonus : `geom_line(size = 2)` -> `geom_line(linewidth = 2)` (déprécation ggplot 3.4, issue #13 - aussi traitée par la PR #15 ; trivial à réconcilier).
+- Bonus : test pour `random_ggplotly()` (lignes jusque-là non couvertes).
+- Couverture paquet : 98.07% -> 98.55%. Suite : 3359 PASS / 0 FAIL / 0 WARN.
+
+### #1 - random_mock() - FAIT
+- Red : `tests/testthat/test-mock.R` (tagList de colonnes bootstrap, labels custom, recyclage heights/labels, labels auto, validation widths) -> 4 FAIL `could not find function`.
+- Green : `R/Mock.R` -> `random_mock(widths, heights = 3, labels = NULL)`. Renvoie un `htmltools::tagList` (bloc `<style>` + ligne de colonnes `.shinipsum-mock`). Labels par défaut = courts extraits lorem. Validation via `attempt::stop_if_not`.
+- Dépendance ajoutée : `htmltools` (Imports) - déjà transitive (plotly/DT/dygraphs).
+- `R/globals.R` : ajout `psavert`, `passengers` (NSE ggplot du type "ts").
+- `.Rbuildignore` : ajout `^dev$`.
+- Couverture `R/Mock.R` : 100%. Suite : 3376 PASS / 0 FAIL / 0 WARN (`devtools::test()`).
+- `R CMD check --no-manual` (tarball) : 0 ERROR / 0 WARNING / 1 NOTE (`utils` import inutilisé - préexistant sur master).
+- Note : `devtools::check()` en mode `--as-cran` strict fait échouer un test préexistant (`geom_density_2d` -> `check_installed("MASS")`, MASS non déclaré) ; non lié à ces changements, et la CI GitHub passe.
+
+## pr-reviewer
+- (à lancer une fois la PR ouverte)
+
+### #3 - random_text(var =) - FAIT
+- Red : `tests/testthat/test-text-var.R` (var=1 == comportement historique, var différents -> textes différents, taille préservée, wrap sur var énorme, combinaison avec offset, validation) -> 4 FAIL `unused argument`.
+- Green : ajout du paramètre `var` (entier >= 1, défaut 1) à `random_text()`. `var == 1` -> code historique inchangé (octet pour octet) ; `var > 1` -> tranche décalée du corpus avec wrap (corpus doublé pour nchars, modulo pour nwords). Validation `attempt::stop_if_not`.
+- Couverture `R/Text.R` : 100%. Suite : 3396 PASS / 0 FAIL / 0 WARN. Total paquet : 98.76%.
+
+## pr-reviewer (PR #16)
+- Verdict : APPROVE (nits mineurs). Aucun blocage. ERROR `--as-cran` (`geom_density_2d` -> `MASS` non déclaré) confirmé préexistant sur `master`.
+- Nits adressés :
+  - validation explicite de `heights` dans `random_mock()` (+ tests).
+  - labels auto de `random_mock()` : `random_text(nwords = 3, var = i)` (distincts, wrap) au lieu d'un découpage par offset.
+- Nits laissés (notés comme non-bloquants / follow-up) : alias `timeseries` géré seulement pour le cas length-1 (cohérent avec `match.arg`) ; quirk de précédence `1+offset:nwords+offset` préservé volontairement.
+
+## CI fix (PR #16, run 1)
+- macOS / Windows R-CMD-check rouge : le test `random_ggplotly()` (sans arg, ajouté pour la couverture) tirait au hasard une variante `density_2d`/`hex` qui, une fois *construite* par `ggplotly()`, exige `MASS`/`hexbin` - absents des images CI minimales. (`random_ggplot()` seul ne construit pas le plot, d'où l'absence d'échec préexistant.)
+- Fix : test `random_ggplotly()` rendu déterministe (types `point`/`line`/`bar`/`ts`, sans dépendance optionnelle) + ajout de `MASS` et `hexbin` à `Suggests` (corrige aussi l'ERROR `--as-cran` préexistant signalé par la review).
+- `test-coverage` CI reste rouge : action `actions/cache@v2` dépréciée -> auto-fail GitHub. Préexistant, traité par les PR #14 / #15 (modernisation des workflows) ; non touché ici pour ne pas tripler le même changement.
+
+## CI (PR #16, run 2) - VERT
+- `R-CMD-check` : PASS sur macOS, Windows, Ubuntu (devel / release / oldrel-1). 0 ERROR / 0 WARNING.
+- `test-coverage` : toujours rouge (`actions/cache@v2` déprécié -> auto-fail GitHub, dans le workflow obsolète `test-coverage.yaml`). Pré-existant sur `master`, indépendant de cette PR ; la modernisation des workflows est portée par les PR #14 / #15. Volontairement non dupliqué ici.
+
+## État final
+- PR #16 prête pour relecture humaine. Couvre #1, #3, #4 (+ #13). Reste à la merci d'une review/merge par un mainteneur (branche protégée : `mergeStateStatus = BLOCKED` faute d'approbation).
+
+## Retour Copilot (PR #16)
+3 commentaires, tous adressés :
+1. `R/Text.R` : typo "chose" -> "choose" dans le message d'erreur "You can't choose both nchars and nwords" (préexistant, corrigé puisqu'on touche le fichier).
+2. `R/Text.R` : branche `var > 1` (mode mots) réécrite sans précédence ambiguë `+`/`:` -> `start <- (offset + (var-1)*nwords) %% n ; idx <- ((start + seq.int(0L, nwords)) %% n) + 1L`. Comportement explicite et constant (nwords+1 mots) pour tout `var > 1`, avec wrap. `var == 1` toujours inchangé octet pour octet.
+3. `R/Plot.R` : `"tile"` était listé deux fois dans `formals(random_ggplot)$type` -> biais d'échantillonnage quand `type = "random"` + doc dupliquée. Dédoublonné (formals + roxygen). Nouveau test : `anyDuplicated(types) == 0`.
+- Suite : 3410 PASS / 0 FAIL / 0 WARN. Couverture inchangée (98.77%).
+
+## Retour Copilot #2 (PR #16)
+- "tile" en double dans formals + typo "chose" : déjà corrigés au commit précédent (Copilot relisait l'ancien état).
+- NOUVEAU `R/Plot.R` : la branche `"tile" = sample(160:161, 1)` du `switch` interne était morte (R prend la 1re occurrence). Fusionnée -> `"tile" = sample(c(40:41, 160:161), 1)`, doublon supprimé. Les variantes 160/161 deviennent atteignables (et couvertes par le test des 100 tirages).
+- NOUVEAU `NEWS.md` : suppression de la puce "Added a `NEWS.md` file..." (le fichier existe déjà ; bullet hérité du master, peu informatif).
+- Suite : 3411 PASS / 0 FAIL / 0 WARN. Couverture ~98.77%.
+
+## Retour Copilot #3 (PR #16)
+- `NEWS.md` ("Added a NEWS.md file") et `Plot.R:52` ("tile" en double dans le switch) : déjà corrigés au commit 3307c48 ; Copilot relisait un commit antérieur (la re-review a couru avant le push).
+- NOUVEAU `R/Text.R` : branche `var > 1` (mode mots) renvoyait `nwords + 1` mots (cohérent avec le quirk historique de `var == 1`). Changé pour renvoyer exactement `nwords` mots -> `idx <- ((start + seq_len(nwords) - 1L) %% n) + 1L`. Test ajouté (compte de mots pour var = 2, 5, 1e6). `var == 1` toujours inchangé.
+- Suite : 3414 PASS / 0 FAIL / 0 WARN. Couverture ~98.77%.
+
+## PR #17 - retour Copilot
+- 3e passe Copilot : "generated no new comments" -> PR #17 considérée propre. CI verte.
diff --git a/man/random_ggplot.Rd b/man/random_ggplot.Rd
index 07a25c6..d4488c4 100644
--- a/man/random_ggplot.Rd
+++ b/man/random_ggplot.Rd
@@ -7,11 +7,11 @@
 random_ggplot(
   type = c("random", "point", "bar", "boxplot", "col", "tile", "line", "bin2d",
     "contour", "density", "density_2d", "dotplot", "hex", "freqpoly", "histogram",
-    "ribbon", "raster", "tile", "violin")
+    "ribbon", "raster", "violin", "ts")
 )
 }
 \arguments{
-\item{type}{type of the geom. Can be any of "random", "point", "bar", "boxplot","col", "tile", "line", "bin2d", "contour", "density", "density_2d", "dotplot", "hex", "freqpoly", "histogram", "ribbon", "raster", "tile", "violin" and defines the geom of the ggplot. Default is "random", and chooses a random geom for you.}
+\item{type}{type of the geom. Can be any of "random", "point", "bar", "boxplot","col", "tile", "line", "bin2d", "contour", "density", "density_2d", "dotplot", "hex", "freqpoly", "histogram", "ribbon", "raster", "violin", "ts" (alias "timeseries") and defines the geom of the ggplot. Default is "random", and chooses a random geom for you. The "ts" type returns a time-series oriented plot, with a \code{Date} on the x axis.}
 }
 \value{
 a ggplot
diff --git a/man/random_mock.Rd b/man/random_mock.Rd
new file mode 100644
index 0000000..42a7705
--- /dev/null
+++ b/man/random_mock.Rd
@@ -0,0 +1,35 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/Mock.R
+\name{random_mock}
+\alias{random_mock}
+\title{A Mock UI Layout}
+\usage{
+random_mock(widths, heights = 3, labels = NULL)
+}
+\arguments{
+\item{widths}{integer vector of bootstrap column widths (each between 1 and
+12). Its length defines the number of mock zones.}
+
+\item{heights}{integer vector giving the visual height of each zone, expressed
+as a number of blank lines. Recycled to the length of \code{widths}. Default 3.}
+
+\item{labels}{character vector of zone labels. Recycled to the length of
+\code{widths}. When \code{NULL} (default), short random lorem-ipsum labels are used.}
+}
+\value{
+a \code{\link[htmltools:tagList]{htmltools::tagList()}}
+}
+\description{
+Build a quick "zoning" of a Shiny UI: a row of bootstrap columns, each one
+drawn as an empty bordered box with a centered label. Handy to sketch the
+layout of an app before any real content exists.
+}
+\details{
+The returned object is a \code{\link[htmltools:tagList]{htmltools::tagList()}} (a self-contained CSS \verb{<style>}
+block plus the columns), so it can be dropped directly inside a
+\code{shiny::fluidPage()} / \code{bslib::page_fluid()} and rendered as is.
+}
+\examples{
+random_mock(c(4, 8))
+random_mock(c(6, 6), labels = c("a plot here", "a table here"))
+}
diff --git a/man/random_text.Rd b/man/random_text.Rd
index 2807a5e..63fec78 100644
--- a/man/random_text.Rd
+++ b/man/random_text.Rd
@@ -4,7 +4,7 @@
 \alias{random_text}
 \title{A Random Lorem Ipsum}
 \usage{
-random_text(nchars = NULL, nwords = NULL, offset = 0)
+random_text(nchars = NULL, nwords = NULL, offset = 0, var = 1)
 }
 \arguments{
 \item{nchars}{number of characters. One of the two params should be left NULL.}
@@ -12,6 +12,12 @@ random_text(nchars = NULL, nwords = NULL, offset = 0)
 \item{nwords}{number of words to return. One of the two params should be left NULL.}
 
 \item{offset}{number of characters or words to offset the result by. Defaults to 0.}
+
+\item{var}{integer >= 1 selecting a "variant" of the text: \code{var = 1} (the
+default) returns the historical result, while higher values return distinct
+slices of the lorem-ipsum corpus. Handy to get visually different chunks
+when calling \code{random_text()} repeatedly (e.g. in a bulleted list). The
+corpus wraps around when \code{var} is large.}
 }
 \value{
 a text
diff --git a/man/shinipsum-package.Rd b/man/shinipsum-package.Rd
index b0b0ca3..0fa84ce 100644
--- a/man/shinipsum-package.Rd
+++ b/man/shinipsum-package.Rd
@@ -6,8 +6,7 @@
 \alias{shinipsum-package}
 \title{shinipsum: Lorem-Ipsum-like Helpers for fast Shiny Prototyping}
 \description{
-Prototype your shiny apps quickly with these
-    Lorem-Ipsum-like Helpers.
+Prototype your shiny apps quickly with these Lorem-Ipsum-like Helpers.
 }
 \seealso{
 Useful links:
diff --git a/tests/testthat/test-ggplot-ts.R b/tests/testthat/test-ggplot-ts.R
new file mode 100644
index 0000000..4c02c54
--- /dev/null
+++ b/tests/testthat/test-ggplot-ts.R
@@ -0,0 +1,25 @@
+context("test-ggplot-ts.R")
+
+test_that("random_ggplot('ts') returns a time-series ggplot with a Date x", {
+  lapply(
+    1:50, function(x){
+      a <- random_ggplot("ts")
+      expect_is(a, "ggplot")
+      expect_true("date" %in% names(a$data))
+      expect_is(a$data$date, "Date")
+      # building must not error nor warn (e.g. deprecated aesthetics)
+      expect_warning(ggplot2::ggplot_build(a), regexp = NA)
+    }
+  )
+})
+
+test_that("'timeseries' is an alias of 'ts'", {
+  a <- random_ggplot("timeseries")
+  expect_is(a, "ggplot")
+  expect_true("date" %in% names(a$data))
+  expect_is(a$data$date, "Date")
+})
+
+test_that("'ts' is part of the random pool", {
+  expect_true("ts" %in% eval(formals(random_ggplot)$type))
+})
diff --git a/tests/testthat/test-ggplot.R b/tests/testthat/test-ggplot.R
index 06baf4b..9fab4d7 100644
--- a/tests/testthat/test-ggplot.R
+++ b/tests/testthat/test-ggplot.R
@@ -10,3 +10,18 @@ test_that("ggplot creation works", {
   )
 
 })
+
+test_that("the 'type' choices have no duplicates", {
+  types <- eval(formals(random_ggplot)$type)
+  expect_equal(anyDuplicated(types), 0L)
+})
+
+test_that("ggplotly creation works", {
+  # use explicit types that don't pull optional packages (MASS / hexbin),
+  # so the test stays deterministic on minimal CI images
+  for (type in c("point", "line", "bar", "ts")) {
+    a <- random_ggplotly(type)
+    expect_is(a, "plotly")
+    expect_is(a, "htmlwidget")
+  }
+})
diff --git a/tests/testthat/test-mock.R b/tests/testthat/test-mock.R
new file mode 100644
index 0000000..84ab495
--- /dev/null
+++ b/tests/testthat/test-mock.R
@@ -0,0 +1,60 @@
+context("test-mock.R")
+
+test_that("random_mock returns a tagList of bootstrap columns", {
+  m <- random_mock(c(4, 8))
+  expect_is(m, "shiny.tag.list")
+  html <- paste(as.character(m), collapse = "")
+  expect_match(html, "col-sm-4")
+  expect_match(html, "col-sm-8")
+  expect_match(html, "shinipsum-mock")
+  # one style block + two columns
+  expect_equal(sum(grepl("col-sm-", strsplit(html, "<div")[[1]])), 2)
+})
+
+test_that("random_mock uses provided labels", {
+  m <- random_mock(c(6, 6), labels = c("a graph here", "a table here"))
+  html <- paste(as.character(m), collapse = "")
+  expect_match(html, "a graph here")
+  expect_match(html, "a table here")
+})
+
+test_that("random_mock recycles heights and labels", {
+  m <- random_mock(c(3, 3, 3), heights = 2, labels = "x")
+  html <- paste(as.character(m), collapse = "")
+  expect_equal(lengths(regmatches(html, gregexpr("col-sm-3", html))), 3)
+  expect_equal(lengths(regmatches(html, gregexpr(">x<", html))), 3)
+  # 2 blank lines per column
+  expect_equal(lengths(regmatches(html, gregexpr("&nbsp;", html))), 6)
+})
+
+test_that("random_mock generates distinct labels when none supplied", {
+  m <- random_mock(c(4, 4, 4))
+  html <- paste(as.character(m), collapse = "")
+  expect_match(html, "shinipsum-mock-label")
+  lab <- vapply(
+    seq_len(3),
+    function(i) random_text(nwords = 3, var = i),
+    character(1)
+  )
+  expect_equal(length(unique(lab)), 3)
+  for (l in lab) {
+    expect_match(html, l, fixed = TRUE)
+  }
+})
+
+test_that("random_mock validates widths", {
+  expect_error(random_mock("bad"), "widths")
+  expect_error(random_mock(numeric(0)), "widths")
+  expect_error(random_mock(c(4, 13)), "widths")
+  expect_error(random_mock(c(0, 4)), "widths")
+  expect_error(random_mock(c(4, 4.5)), "widths")
+  expect_error(random_mock(c(4, NA)), "widths")
+})
+
+test_that("random_mock validates heights", {
+  expect_error(random_mock(c(4, 8), heights = "a"), "heights")
+  expect_error(random_mock(c(4, 8), heights = 0), "heights")
+  expect_error(random_mock(c(4, 8), heights = 2.5), "heights")
+  expect_error(random_mock(c(4, 8), heights = c(2, NA)), "heights")
+  expect_error(random_mock(c(4, 8), heights = integer(0)), "heights")
+})
diff --git a/tests/testthat/test-text-var.R b/tests/testthat/test-text-var.R
new file mode 100644
index 0000000..6000fc5
--- /dev/null
+++ b/tests/testthat/test-text-var.R
@@ -0,0 +1,56 @@
+context("test-text-var.R")
+
+test_that("var = 1 is the historical behaviour", {
+  expect_identical(random_text(nwords = 12), random_text(nwords = 12, var = 1))
+  expect_identical(random_text(nchars = 40), random_text(nchars = 40, var = 1))
+  expect_identical(
+    random_text(nwords = 12, offset = 20),
+    random_text(nwords = 12, offset = 20, var = 1)
+  )
+})
+
+test_that("different var values give different text", {
+  a <- random_text(nwords = 10, var = 1)
+  b <- random_text(nwords = 10, var = 2)
+  cc <- random_text(nwords = 10, var = 3)
+  expect_false(a == b)
+  expect_false(b == cc)
+  expect_false(a == cc)
+
+  a2 <- random_text(nchars = 30, var = 1)
+  b2 <- random_text(nchars = 30, var = 2)
+  expect_false(a2 == b2)
+})
+
+test_that("var keeps the requested size", {
+  for (v in c(1, 2, 5, 50)) {
+    expect_equal(nchar(random_text(nchars = 25, var = v)), 25)
+  }
+  # var > 1 returns exactly `nwords` words
+  for (v in c(2, 5, 1e6)) {
+    expect_equal(
+      length(strsplit(random_text(nwords = 10, var = v), " ")[[1]]),
+      10
+    )
+  }
+  # very large var wraps around the corpus instead of producing NA / short text
+  big <- random_text(nchars = 20, var = 1e6)
+  expect_equal(nchar(big), 20)
+  expect_false(grepl("NA", random_text(nwords = 8, var = 1e6)))
+})
+
+test_that("var combines with offset", {
+  expect_false(
+    random_text(nwords = 8, offset = 5, var = 2) ==
+      random_text(nwords = 8, offset = 5, var = 1)
+  )
+})
+
+test_that("var is validated", {
+  expect_error(random_text(nwords = 5, var = 0), "var")
+  expect_error(random_text(nwords = 5, var = -1), "var")
+  expect_error(random_text(nwords = 5, var = 1.5), "var")
+  expect_error(random_text(nwords = 5, var = c(1, 2)), "var")
+  expect_error(random_text(nwords = 5, var = NA), "var")
+  expect_error(random_text(nwords = 5, var = "a"), "var")
+})