diff --git a/.Rbuildignore b/.Rbuildignore
index 79578e1..951f16d 100644
--- a/.Rbuildignore
+++ b/.Rbuildignore
@@ -19,3 +19,4 @@ febr-package.code-workspace
 app-env
 tmp
 febr2smartsolos-Perfil-1.json
+^CRAN-SUBMISSION$
diff --git a/.gitignore b/.gitignore
index aad952e..68ba120 100644
--- a/.gitignore
+++ b/.gitignore
@@ -7,3 +7,4 @@ docs
 *.json
 app-env
 .Renviron
+CRAN-SUBMISSION
diff --git a/R/febr2sf.R b/R/febr2sf.R
index a161208..95a42ca 100644
--- a/R/febr2sf.R
+++ b/R/febr2sf.R
@@ -15,11 +15,13 @@
 #' @author Alessandro Samuel-Rosa \email{alessandrosamuelrosa@@gmail.com}
 #' @export
 #' @examples
+#' if (interactive()) {
 #' res <- observation(
 #'   data.set = "ctb0013",
 #'   progress = FALSE, verbose = FALSE)
 #' res <- febr2sf(obj = res)
 #' plot(res["geometry"], axes = TRUE, graticule = TRUE)
+#' }
 ####################################################################################################
 febr2sf <-
   function(obj) {
diff --git a/R/layer.R b/R/layer.R
index 863f75b..ca3aa23 100644
--- a/R/layer.R
+++ b/R/layer.R
@@ -117,9 +117,9 @@
 #' @seealso [febr::readFEBR()], [febr::observation()], [febr::dictionary()], [febr::unit()]
 #' @export
 #' @examples
+#' if (interactive()) {
 #' res <- layer(data.set = "ctb0003")
 #'
-#' if (interactive()) {
 #' # Download two data sets and standardize units
 #' res <- layer(
 #'   data.set = paste("ctb000", 4:5, sep = ""),
diff --git a/R/observation.R b/R/observation.R
index ca2ea5a..cc3e827 100644
--- a/R/observation.R
+++ b/R/observation.R
@@ -89,9 +89,9 @@
 #' @seealso [febr::readFEBR()], [febr::layer()], [febr::dictionary()], [febr::unit()]
 #' @export
 #' @examples
+#' if (interactive()) {
 #' res <- observation(data.set = "ctb0013")
 #'
-#' if (interactive()) {
 #' # Download two data sets and standardize CRS
 #' res <- observation(
 #'   data.set = paste("ctb000", 4:5, sep = ""),
diff --git a/man/febr2sf.Rd b/man/febr2sf.Rd
index 721f96f..f8205b0 100644
--- a/man/febr2sf.Rd
+++ b/man/febr2sf.Rd
@@ -24,12 +24,14 @@ Create an sf object from the
 Soil Data Repository, \url{https://www.pedometria.org/febr/}.
 }
 \examples{
+if (interactive()) {
 res <- observation(
   data.set = "ctb0013",
   progress = FALSE, verbose = FALSE)
 res <- febr2sf(obj = res)
 plot(res["geometry"], axes = TRUE, graticule = TRUE)
 }
+}
 \references{
 Pebesma, E., 2018. Simple Features for R: Standardized Support for Spatial Vector Data.
 The R Journal 10 (1), 439-446, \doi{10.32614/RJ-2018-009}
diff --git a/man/layer.Rd b/man/layer.Rd
index 447a1cc..bc9abfc 100644
--- a/man/layer.Rd
+++ b/man/layer.Rd
@@ -144,9 +144,9 @@ variables will be re-coded as \code{aaa_bbb}, thus becoming the same variable.
 }
 }
 \examples{
+if (interactive()) {
 res <- layer(data.set = "ctb0003")
 
-if (interactive()) {
 # Download two data sets and standardize units
 res <- layer(
   data.set = paste("ctb000", 4:5, sep = ""),
diff --git a/man/observation.Rd b/man/observation.Rd
index f257c6e..6f72337 100644
--- a/man/observation.Rd
+++ b/man/observation.Rd
@@ -127,9 +127,9 @@ variables will be re-coded as \code{aaa_bbb}, thus becoming the same variable.
 }
 }
 \examples{
+if (interactive()) {
 res <- observation(data.set = "ctb0013")
 
-if (interactive()) {
 # Download two data sets and standardize CRS
 res <- observation(
   data.set = paste("ctb000", 4:5, sep = ""),