#! /bin/sh # # ${R_HOME}/bin/REMOVE for removing add-on packages revision='$Revision: 1.17.6.1 $' version=`set - ${revision}; echo ${2}` version="R add-on package remover ${version} Copyright (C) 2000-2002 The R Core Development Team. This is free software; see the GNU General Public Licence version 2 or later for copying conditions. There is NO warranty." usage="Usage: R CMD REMOVE [options] pkgs Remove the add-on packages specified by pkgs. The library tree to remove from can be specified via '--library'. By default, packages are removed from the library tree rooted at the first directory given in the environment variable R_LIBS if this is set and non-null, and from the default R library tree (${R_HOME}/library) otherwise. Options: -h, --help print short help message and exit -v, --version print version info and exit -l, --library=LIB remove packages from library tree LIB Report bugs to ." GETWD='@GETWD@' NO_PERL5=@NO_PERL5@ if test -n "${R_LIBS}"; then lib=`echo "${R_LIBS}" | cut -f1 -d:` else lib="${R_HOME}/library" fi pkgs= while test -n "${1}"; do case ${1} in -h|--help) echo "${usage}"; exit 0 ;; -v|--version) echo "${version}"; exit 0 ;; -l) lib="${2}"; shift ;; --library=*) lib=`echo "${1}" | sed -e 's/[^=]*=//'` ;; *) pkgs="${pkgs} ${1}" ;; esac shift done if test -z "${pkgs}"; then echo "ERROR: no packages specified" exit 1 fi if test -d "${lib}" -a -w "${lib}"; then lib=`cd "${lib}" && ${GETWD}` else echo "ERROR: cannot cd to or remove from directory '${lib}'" exit 2 fi cd "${lib}" for pkg in ${pkgs}; do pkg=`basename "${pkg}"` # in case someone gave a path ... if test -d "${pkg}"; then rm -rf "${pkg}" else echo "WARNING: there is no pkg '${pkg}' in lib '${lib}'" continue fi done if ${NO_PERL5}; then echo "*** Cannot update the file" echo "*** ${lib}/index.html" echo "*** without Perl version 5. Please delete the entries for" echo "*** the packages you removed manually." exit 2 fi if test "${lib}" = `cd "${R_HOME}/library" && ${GETWD}`; then ${R_CMD} perl "${R_HOME}/share/perl/build-help.pl" --htmllists cat "${R_HOME}"/library/*/CONTENTS \ > "${R_HOME}"/doc/html/search/index.txt fi ### Local Variables: *** ### mode: sh *** ### sh-indentation: 2 *** ### End: ***