Running examples in 'ggpmisc-Ex.R' failed
The error most likely occurred in:

> ### Name: stat_dens2d_labels
> ### Title: Replace labels in data based on 2D density
> ### Aliases: stat_dens2d_labels
> 
> ### ** Examples
> 
> 
> library(ggrepel)
> library(gginnards)
> 
> random_string <- function(len = 6) {
+ paste(sample(letters, len, replace = TRUE), collapse = "")
+ }
> 
> # Make random data.
> set.seed(1001)
> d <- tibble::tibble(
+   x = rnorm(100),
+   y = rnorm(100),
+   group = rep(c("A", "B"), c(50, 50)),
+   lab = replicate(100, { random_string() })
+ )
> 
> # using defaults
> ggplot(data = d, aes(x, y, label = lab)) +
+   geom_point() +
+   stat_dens2d_labels()
> 
> # Using geom_debug() we can see that all 100 rows in \code{d} are
> # returned. But only those labelled in the previous example still contain
> # the original labels.
> ggplot(data = d, aes(x, y, label = lab)) +
+   geom_point() +
+   stat_dens2d_labels(geom = "debug")
# A tibble: 100 x 5
        x       y label    PANEL group
    <dbl>   <dbl> <chr>    <fct> <int>
 1  2.19   0.0786 ""       1        -1
 2 -0.178 -0.987  ""       1        -1
 3 -0.185 -1.18   ""       1        -1
 4 -2.51   1.68   "uhlpie" 1        -1
 5 -0.557  0.756  ""       1        -1
 6 -0.144  0.303  ""       1        -1
 7  1.09  -1.06   ""       1        -1
 8 -0.623  0.741  ""       1        -1
 9 -0.907  0.495  ""       1        -1
10 -1.59  -1.13   "rjcayl" 1        -1
# ... with 90 more rows
> 
> ggplot(data = d, aes(x, y, label = lab, colour = group)) +
+   geom_point() +
+   stat_dens2d_labels(geom = "text_repel")
> 
> ggplot(data = d, aes(x, y, label = lab, colour = group)) +
+   geom_point() +
+   stat_dens2d_labels(geom = "text_repel", label.fill = NA)
> 
> # we keep labels starting with "a" across the whole plot, but all in sparse
> # regions. To achieve this we pass as argument to label.fill a fucntion
> # instead of a character string.
> label.fun <- function(x) {ifelse(grepl("^a", x), x, "")}
> ggplot(data = d, aes(x, y, label = lab, colour = group)) +
+   geom_point() +
+   stat_dens2d_labels(geom = "text_repel", label.fill = label.fun)