diff --git a/R/significance_annotation.R b/R/significance_annotation.R index eb931fa..db1d714 100644 --- a/R/significance_annotation.R +++ b/R/significance_annotation.R @@ -102,10 +102,15 @@ StatSignif <- ggplot2::ggproto("StatSignif", ggplot2::Stat, #' to the paired geom/stat. #' @inheritParams ggplot2::layer #' @examples +#' \dontrun{ #' library(ggplot2) +#' library(ggsignif) #' ggplot(mpg, aes(class, hwy)) + #' geom_boxplot() + -#' geom_signif(comparisons = list(c("compact", "pickup"), c("subcompact", "suv"))) +#' geom_signif(comparisons = list(c("compact", "pickup"), +#' c("subcompact", "suv"))) +#' } +#' #' @export stat_signif <- function(mapping = NULL, data = NULL, position = "identity", na.rm = FALSE, show.legend = NA, diff --git a/man/stat_signif.Rd b/man/stat_signif.Rd index 9278da8..211f730 100644 --- a/man/stat_signif.Rd +++ b/man/stat_signif.Rd @@ -88,8 +88,13 @@ layer, as a string.} Create significance layer } \examples{ +\dontrun{ library(ggplot2) +library(ggsignif) ggplot(mpg, aes(class, hwy)) + geom_boxplot() + - geom_signif(comparisons = list(c("compact", "pickup"), c("subcompact", "suv"))) + geom_signif(comparisons = list(c("compact", "pickup"), + c("subcompact", "suv"))) +} + } diff --git a/tests/testthat/Rplots.pdf b/tests/testthat/Rplots.pdf index e3c62f7..45024ff 100644 Binary files a/tests/testthat/Rplots.pdf and b/tests/testthat/Rplots.pdf differ