fix: unique name for book in examples

js2264 · Dec 19, 2023 · 3c6a80b · 3c6a80b
1 parent 9b3a3b3
commit 3c6a80b
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/doc.R b/R/doc.R
@@ -59,7 +59,8 @@
 #' 
 #' @examples
 #' ## In practice, you should not use `.local` argument. 
-#' bookname <- paste(Sys.info()[['sysname']], 'localbook1', sep = '.')
+#' unique_id <- sample(c(LETTERS, 0:9), 8) |> paste(collapse = '')
+#' bookname <- paste(Sys.info()[['sysname']], unique_id, sep = '.')
 #' bb <- init(bookname, .local = TRUE)
 #' add_preamble(bb, open = FALSE)
 #' add_chapter(bb, title = "Chapitre Un", open = FALSE)
@@ -201,7 +202,8 @@ NULL
 #' 
 #' @examples
 #' ## In practice, you should not use `.local` argument. 
-#' bookname <- paste(Sys.info()[['sysname']], 'localbook1', sep = '.')
+#' unique_id <- sample(c(LETTERS, 0:9), 8) |> paste(collapse = '')
+#' bookname <- paste(Sys.info()[['sysname']], unique_id, sep = '.')
 #' init(bookname, .local = TRUE)
 #' bb <- BiocBook(bookname)
 #' chapters(bb)