check-pkgs.R

argv <- commandArgs(TRUE)
pkgs <- strsplit(argv, ",")[[1]]
installed.pkgs <- dir(.libPaths()[1])
for(pkg in pkgs) {
  if (pkg %in% installed.pkgs) next
  utils::install.packages(pkg, lib = .libPaths()[1])
}

test-supc.sh

#! /bin/bash

ls .Rprofile || wget https://raw.githubusercontent.com/wush978/.Rprofile/master/.Rprofile
PKGS=Rcpp,amap,knitr,rmarkdown,fields,BH,dbscan

export MAKE="make -j"
(rm -rf supc || echo "no supc") && \
(rm -rf supc_* || echo "no supc_") && \
git clone ~/Project/supc && \
Rscript check-pkgs.R $PKGS && \
R CMD build --no-build-vignettes --no-manual supc && \
(ls supc_* | xargs R CMD check --no-vignettes --no-build-vignettes --ignore-vignettes --no-manual)