wrap plot_plate ggpattern examples in \donttest as they are slow

bedapub · Mar 13, 2024 · dc3db6a · dc3db6a
1 parent 2b7fb89
commit dc3db6a
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/R/plot.R b/R/plot.R
@@ -85,10 +85,12 @@ plot_design <- function(.tbl, ..., .color, .alpha = NULL) {
 #'   .color = Treatment, .alpha = Timepoint
 #' )
 #'
+#' \donttest{
 #' plot_plate(bc$get_samples(),
 #'   plate = plate, column = column, row = row,
 #'   .color = Treatment, .pattern = Timepoint
 #' )
+#' }
 plot_plate <- function(.tbl, plate = plate, row = row, column = column,
                        .color, .alpha = NULL, .pattern = NULL,
                        title = paste("Layout by", rlang::as_name(rlang::enquo(plate))),

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