inst/examples/dratInsert.r

In eddelbuettel/littler: R at the Command-Line via 'r'

#!/usr/bin/env r
#
# Another example to install one or more (source) packages into a drat
#
# Copyright (C) 2015 - 2017  Dirk Eddelbuettel
#
# Released under GPL (>= 2)

## load docopt package from CRAN
suppressMessages({
    library(docopt)               # we need docopt (>= 0.3) as on CRAN
    library(drat)
})

## configuration for docopt
doc <- "Usage: drat.r [-h] [-x] [--repo REPO] [--commit MSG] [TARGZ...]

-r --repo REPO        repository path to use [default: ~/git/drat]
-c --commit MSG       in github use, commit with MSG (default: no commit)
-h --help             show this help text
-x --usage            show help and short example usage"

opt <- docopt(doc)			# docopt parsing

if (opt$usage) {
    cat(doc, "\n\n")
    cat("Examples:
  dratInsert.r myPkg_1.2-3.tar.gz              # installs into default (git) repo
  dratInsert.r -r /srv/R/  myPkg_1.2-3.tar.gz  # installs into local directory repo

dratInsert.r is part of littler which brings 'r' to the command-line.
See http://dirk.eddelbuettel.com/code/littler.html for more information.\n")
    q("no")
}

if (is.null(opt$commit)) opt$commit <- FALSE

## helper function
installArg <- function(p, repo, commit) {
    if (!file.exists(p)) stop("No file '", p, "' found. Aborting.", call.=FALSE)
    insertPackage(p, repo, commit)
}

## insert packages using helper function
sapply(opt$TARGZ, installArg, opt$repo, opt$commit)