From 8f8e7b4bd4eaf57536115b35f0e06e508fcffe76 Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Sat, 17 Sep 2016 12:39:21 -0300
Subject: [PATCH] Interrompe script se devtools::check der erro
---
.build_package.R | 15 ++++++++++-----
1 file changed, 10 insertions(+), 5 deletions(-)
diff --git a/.build_package.R b/.build_package.R
index 96db031e..b242ed12 100755
--- a/.build_package.R
+++ b/.build_package.R
@@ -51,10 +51,15 @@ if (length(list.files("./vignettes"))) {
#--------------------------------------------
# Checar conteúdo e organização do pacote.
-check(cleanup = FALSE,
- manual = TRUE,
- vignettes = FALSE,
- check_dir = "../")
+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.
@@ -75,4 +80,4 @@ install()
unlink(lib, recursive = TRUE)
-#--------------------------------------------
\ No newline at end of file
+#--------------------------------------------
--
GitLab