diff --git a/R/dotDensityLayer.R b/R/dotDensityLayer.R
index f197b88e..650a4f0d 100644
--- a/R/dotDensityLayer.R
+++ b/R/dotDensityLayer.R
@@ -32,11 +32,13 @@
 #' @export
 #' @seealso \link{propSymbolsLayer}
 #' @examples
+#' \dontrun{
 #' library(sf)
 #' mtq <- st_read(system.file("gpkg/mtq.gpkg", package="cartography"))
 #' plot(st_geometry(mtq), col = "#B8704D50")
 #' dotDensityLayer(x = mtq,  var="POP", pch=20, col = "red4", n = 200)
 #' layoutLayer(title = "Population Distribution in Martinique, 2015")
+#' }
 dotDensityLayer <- function(x, spdf, df, spdfid = NULL, dfid = NULL, var,
                             n = NULL, 
                             pch = 1,
diff --git a/man/dotDensityLayer.Rd b/man/dotDensityLayer.Rd
index 0fd87921..f497eff2 100644
--- a/man/dotDensityLayer.Rd
+++ b/man/dotDensityLayer.Rd
@@ -76,12 +76,14 @@ Plot a dot density layer.
 The type parameters is defined within the \link{st_sample} function.
 }
 \examples{
+\dontrun{
 library(sf)
 mtq <- st_read(system.file("gpkg/mtq.gpkg", package="cartography"))
 plot(st_geometry(mtq), col = "#B8704D50")
 dotDensityLayer(x = mtq,  var="POP", pch=20, col = "red4", n = 200)
 layoutLayer(title = "Population Distribution in Martinique, 2015")
 }
+}
 \seealso{
 \link{propSymbolsLayer}
 }