pkg-update

#!/bin/sh

#
FILENAME="REPOSITORIES"
DEST="dest"
SRCPATH="src/contrib"

LOG=update_repo.log

# this script generates PACKAGES and PACKAGES.gz files
VERSION_SCRIPT="writeLines(paste(version\$major, version\$minor, sep='.'))"
PACKAGES_SCRIPT="setwd('$DEST'); tools:::write_PACKAGES()"


#



function log {
  local DATE=$(date -jn "+[%H:%M:%S %D]")
  if [ $2 ]
  then
    echo $DATE "$1" >> $2
  else
    echo $DATE "$1"
  fi
}



# Get R's version number
VERSION=$(echo $VERSION_SCRIPT | /usr/bin/R --vanilla --slave | sed -e "s/\([0-9]*\)\.\([0-9]*\)\.\([0-9]*\)/\1.\2/g")

echo "Zelig Build started up on $(date)" >> $LOG
echo " * R version $VERSION" >> $LOG
echo " * $(git --version)" >> $LOG
echo >> $LOG

if [ -d TMP ]
then
  log "removing TMP directory" $LOG
  rm -fr TMP
fi


# git-clone from all watched git repositories
# build them in R
# 
while read LINE
do
  log "$LINE" $LOG

  # git-clone
  git clone $LINE TMP

  # error-catching for git clone
  if [ $? != 0 ]
  then
    log " * git clone failed" $LOG
    log " * not attempting an R build" $LOG
    echo >> $LOG
    continue
  else
    log " * git clone succeed" $LOG
  fi

  echo

  # Build with R
  R CMD build TMP

  # error-catching for R CMD build
  if [ $? != 0 ]
  then
    log " * R Build failed" $LOG
  else
    log " * R build succeed" $LOG
  fi

  # clean-up
  if [ -d TMP ]
  then
    log " * removing TMP" $LOG
    rm -fr TMP
  fi

  # aesthetics
  echo
  echo >> $LOG

done < $FILENAME

# Make destination directory if it doesn't exist
if [ ! -d $DEST ]
then
  log "Making destination folder: $DEST" $LOG
  mkdir $DEST
fi


# Move files to destination
log "Moving packages to destination folder" $LOG
mv -f *.tar.gz $DEST


# Execute R Script
log "Create \"PACKAGES\" file" $LOG
echo $PACKAGES_SCRIPT | /usr/bin/R --vanilla --slave


echo "\n" >> $LOG