src/optional/R: First submission to CRAN.

This commit is contained in:
Ole Tange 2014-03-16 00:52:00 +01:00
parent 583e6fb4b7
commit 040586e172
6 changed files with 23 additions and 8 deletions

11
src/optional/R/Makefile Normal file
View file

@ -0,0 +1,11 @@
all:
cd gnuparallel && md5sum DESCRIPTION NAMESPACE R/gnuparallel.R man/gnuparallel-package.Rd > MD5
R CMD check --as-cran gnuparallel
R CMD build gnuparallel
R CMD INSTALL --build gnuparallel_0.1.tar.gz
R CMD check gnuparallel
labeling:
R CMD build labeling
R CMD INSTALL --build labeling_0.2.tar.gz
R CMD check labeling

View file

@ -1,4 +1,4 @@
c521738aeecfa8e237500f4a3263143e DESCRIPTION c521738aeecfa8e237500f4a3263143e DESCRIPTION
d008be14407ccaa1070b98ed7d91c123 NAMESPACE d008be14407ccaa1070b98ed7d91c123 NAMESPACE
57ae71c1e7b6c2ad3069230cccb19f59 R/gnuparallel.R beb1ce7a813ec211acd651e66a397a7b R/gnuparallel.R
b0f1fb891f37499b06b41754b394f1ae man/gnuparallel-package.Rd a6f75c33282b61a2efe54c70e8a52c39 man/gnuparallel-package.Rd

View file

@ -43,7 +43,7 @@
#' \code{\link{gnu.parallel.load.lines}} #' \code{\link{gnu.parallel.load.lines}}
#' @examples #' @examples
#' library(gnuparallel) #' library(gnuparallel)
#' system("parallel --header : --results foobar printf out{1}\\\\\\\\tout{2}\\\\\\\\nline2{1}\\\\\\\\t{2}\\\\\\\\n ::: letters a b c ::: numbers 4 5 6") #' system("parallel --results foobar printf out{1}\\\\\\\\tout{2}\\\\\\\\nline2{1}\\\\\\\\t{2}\\\\\\\\n ::: a b c ::: 4 5 6")
#' fn <- gnu.parallel.filenames("foobar") #' fn <- gnu.parallel.filenames("foobar")
#' gnu.parallel.load(fn) #' gnu.parallel.load(fn)
#' gnu.parallel.load.lines(fn) #' gnu.parallel.load.lines(fn)
@ -54,7 +54,7 @@ c()
#' Find the filenames in a results dir #' Find the filenames in a results dir
#' #'
#' @param resdir results dir from GNU Parallel's --results #' @param resdir results dir from GNU Parallel's -{}-results
#' @return filenametable with a column for each of GNU Parallel's input sources and a column for file name of both stdout and stderr #' @return filenametable with a column for each of GNU Parallel's input sources and a column for file name of both stdout and stderr
#' @export #' @export
gnu.parallel.filenames <- function(resdir) { gnu.parallel.filenames <- function(resdir) {

View file

@ -5,7 +5,7 @@
gnu.parallel.filenames(resdir) gnu.parallel.filenames(resdir)
} }
\arguments{ \arguments{
\item{resdir}{results dir from GNU Parallel's --results} \item{resdir}{results dir from GNU Parallel's ---results}
} }
\value{ \value{
filenametable with a column for each of GNU Parallel's input sources filenametable with a column for each of GNU Parallel's input sources

View file

@ -4,7 +4,7 @@
\alias{gnuparallel-package} \alias{gnuparallel-package}
\title{GNU Parallel} \title{GNU Parallel}
\description{ \description{
Loading of GNU Parallel --results output Loading of GNU Parallel -{}-results output
} }
\details{ \details{
\tabular{ll}{ Package: \tab gnuparallel\cr Type: \tab \tabular{ll}{ Package: \tab gnuparallel\cr Type: \tab
@ -15,7 +15,9 @@
} }
\examples{ \examples{
library(gnuparallel) library(gnuparallel)
system("parallel --header : --results foobar printf out{1}\\\\\\\\tout{2}\\\\\\\\nline2{1}\\\\\\\\t{2}\\\\\\\\n ::: letters a b c ::: numbers 4 5 6") system(paste("parallel --header : --results foobar",
"printf out{let}\\\\\\\\\\\\\\\\tout{num}\\\\\\\\\\\\\\\\nline2{let}\\\\\\\\\\\\\\\\t{num}\\\\\\\\\\\\\\\\n",
"::: let a b c ::: num 4 5 6"))
fn <- gnu.parallel.filenames("foobar") fn <- gnu.parallel.filenames("foobar")
gnu.parallel.load(fn) gnu.parallel.load(fn)
gnu.parallel.load.lines(fn) gnu.parallel.load.lines(fn)

View file

@ -20,7 +20,9 @@
## LIBRARY FOR READING GNU PARALLEL RESULTS ## LIBRARY FOR READING GNU PARALLEL RESULTS
## ##
## Example: ## Example:
## parallel --results my/results/dir --header : 'printf "FOO={foo}\\tBAR={bar}\\n";paste <(seq {bar}) <(seq {bar} -1 1)' :::: <(echo foo; seq 100) <(echo bar; seq 10) ## parallel --results my/results/dir --header : \
## 'printf "FOO={foo}\\tBAR={bar}\\n";paste <(seq {bar}) <(seq {bar} -1 1)' \
## :::: <(echo foo; seq 100) <(echo bar; seq 10)
## ##
## dir="my/results/dir" ## dir="my/results/dir"
## filenametable <- load_parallel_results_filenames(dir); ## filenametable <- load_parallel_results_filenames(dir);