From 91f3aec610488013f699c3d21fc472a09171500a Mon Sep 17 00:00:00 2001
From: Fernando Mayer <fernandomayer@gmail.com>
Date: Mon, 24 Aug 2015 23:37:11 -0300
Subject: [PATCH] insert code to send tarball files to remote server
---
buildPkg.R | 18 +++++++++++++++---
1 file changed, 15 insertions(+), 3 deletions(-)
diff --git a/buildPkg.R b/buildPkg.R
index 035f702..362d6d9 100644
--- a/buildPkg.R
+++ b/buildPkg.R
@@ -32,9 +32,21 @@ packageVersion("legTools")
## Build the package (it will be one directory up)
build(manual = TRUE, vignettes = FALSE)
-## build_win()
+# build the binary version for windows
+build_win()
## Test install with install.packages
-pkg <- paste("../legTools_", packageVersion("legTools"),
- ".tar.gz", sep = "")
+pkg <- paste0("../legTools_", packageVersion("legTools"), ".tar.gz")
install.packages(pkg, repos = NULL)
+
+##======================================================================
+## Sending package tarballs and manual to remote server to be
+## downloadable
+pkg.win <- paste0("../legTools_", packageVersion("legTools"), ".zip")
+cmd.win <- paste("cd ../legTools.Rcheck && zip -r", pkg.win, "legTools")
+system(cmd.win)
+man <- "../legTools.Rcheck/legTools-manual.pdf"
+cmd <- paste("scp -P $PATAXOP", pkg, man, pkg.win,
+ "fernandomayer@$PATAXO:~/public_html/legTools")
+system(cmd)
+##======================================================================
--
GitLab