Interrompe script se devtools::check der erro

.build_package.R

@@ -51,11 +51,16 @@ if (length(list.files("./vignettes"))) {
 #--------------------------------------------
 # Checar conteúdo e organização do pacote.
 
-check(cleanup = FALSE,
+checagem <- check(cleanup = FALSE,
                   manual = TRUE,
                   vignettes = FALSE,
                   check_dir = "../")
 
+if (length(checagem$errors) > 0) {
+    cat(checagem$errors, sep = "\n")
+    stop("Falha ao checar o pacote")
+}
+
 #--------------------------------------------
 # Construir pacote.