#!/usr/bin/env r
library(docopt)
## configuration for docopt
doc <- "Usage: kitten.r [-t TYPE] [-b] [-p] [-h] [-x] PACKAGE
-t --type TYPE type of kitten: plain, rcpp, arma, eigen. [default: plain]
-b --bunny install roxygen2 documentation example and roxygenize (only for plain)
-p --puppy invoke tinytest::puppy to set up testing (only for plain)
-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:
kitten.r
kitten.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")
}
## maybe support path, author, maintainer, email, license, ...
ign <- switch(opt$type,
plain = pkgKitten::kitten(opt$PACKAGE, puppy=opt$puppy, bunny=opt$bunny),
rcpp = Rcpp::Rcpp.package.skeleton(opt$PACKAGE),
arma = RcppArmadillo::RcppArmadillo.package.skeleton(opt$PACKAGE),
eigen = RcppEigen::RcppEigen.package.skeleton(opt$PACKAGE))
if (opt$puppy) {
stopifnot(requireNamespace("tinytest", quietly=TRUE))
tinytest::puppy(opt$PACKAGE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.