Nothing
#!/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)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.