From 2ee525231ca02a525e91fd0f19cfe1fe99fb7c91 Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Wed, 30 Sep 2015 10:50:56 -0300
Subject: [PATCH] Add buildPkg.R and put it in .Rbuildignore.

---
 .Rbuildignore |  1 +
 buildPkg.R    | 86 +++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 87 insertions(+)
 create mode 100644 buildPkg.R

diff --git a/.Rbuildignore b/.Rbuildignore
index 6adac13..8c50e02 100644
--- a/.Rbuildignore
+++ b/.Rbuildignore
@@ -5,3 +5,4 @@
 .Rd2pdf5504
 .Rd2pdf5516
 .Rd2pdf* 
+buildPkg.R
diff --git a/buildPkg.R b/buildPkg.R
new file mode 100644
index 0000000..c5d924b
--- /dev/null
+++ b/buildPkg.R
@@ -0,0 +1,86 @@
+##----------------------------------------------------------------------
+## Script to build and verify the package.
+
+if(!grepl(x=getwd(), pattern="/mcglm$")){
+    stop("Move to /mcglm directory.")
+}
+
+##----------------------------------------------------------------------
+## Packages.
+
+library(devtools)
+
+## Load the package (to make functiona available).
+load_all()
+search()
+
+## Create/update NAMESPACE, *.Rd files.
+document()
+
+## Check documentation.
+check_doc()
+
+## Check functions, datasets, run examples, etc. Using cleanup = FALSE
+## and check_dir = "../" will create a directory named mcglm.Rcheck
+## with all the logs, manuals, figures from examples, etc.
+check(cleanup = FALSE, manual = TRUE, vignettes = FALSE,
+      check_dir = "../")
+
+##----------------------------------------------------------------------
+## Show all exported objects.
+
+ls("package:mcglm")
+packageVersion("mcglm")
+
+##----------------------------------------------------------------------
+## Build the package (it will be one directory up).
+
+build(manual = TRUE, vignettes = FALSE)
+# build the binary version for windows (not used)
+# build_win()
+
+##----------------------------------------------------------------------
+## Examples.
+
+# Run examples from all functions of the package
+# run_examples()
+# Run examples from a specific function
+# dev_example("yscale.components.right")
+
+##----------------------------------------------------------------------
+## Test installation.
+
+## Test install with install.packages().
+pkg <- paste0("../mcglm_", packageVersion("mcglm"), ".tar.gz")
+install.packages(pkg, repos = NULL)
+
+## Test using devtools::install_git().
+libTest <- path.expand("~/R-test/")
+if (file.exists(libTest)){
+    file.remove(libTest)
+}
+dir.create(path = libTest)
+
+.libPaths(new = c(libTest, .libPaths())); .libPaths()
+
+install_git(url = "http://git.leg.ufpr.br/wbonat/mcglm.git",
+            branch = "devel")
+
+library(mcglm)
+packageVersion("mcglm")
+ls("package:mcglm")
+
+##----------------------------------------------------------------------
+## Sending package tarballs and manual to remote server to be
+## downloadable.
+
+pkg.win <- paste0("../mcglm_", packageVersion("mcglm"), ".zip")
+cmd.win <- paste("cd ../mcglm.Rcheck && zip -r", pkg.win, "mcglm")
+system(cmd.win)
+
+man <- "../mcglm.Rcheck/mcglm-manual.pdf"
+cmd <- paste("scp -P $PATAXOP", pkg, man, pkg.win,
+             "leg@$PATAXO:~/public_html/mcglm/source")
+system(cmd)
+
+##----------------------------------------------------------------------
-- 
GitLab