From 3a76228dffa8dc1708c37b7faf47c0cbca4dedb4 Mon Sep 17 00:00:00 2001
From: Fernando Mayer <fernandomayer@gmail.com>
Date: Wed, 12 Aug 2015 17:57:13 -0300
Subject: [PATCH] rename function and document package

---
 R/legTools.R      | 4 +---
 R/subsetDropAll.R | 6 +++---
 2 files changed, 4 insertions(+), 6 deletions(-)

diff --git a/R/legTools.R b/R/legTools.R
index 81acd09..f500c35 100644
--- a/R/legTools.R
+++ b/R/legTools.R
@@ -1,9 +1,7 @@
 ##' @title Convenience Functions, Small GUI to Teach Statistics and Some
 ##'     Datasets.
 ##'
-##' @description legTools is a collection of R functions and datasets,
-##'     maintained by the LEG group (Statistics and Geoinformation
-##'     Laboratory, Laboratório de Estatística e Geoinformação).
+##' @description legTools is a collection of R functions and datasets
 ##'
 ##' @docType package
 ##' @name legTools
diff --git a/R/subsetDropAll.R b/R/subsetDropAll.R
index d31162e..1ccc331 100644
--- a/R/subsetDropAll.R
+++ b/R/subsetDropAll.R
@@ -1,5 +1,5 @@
 ##' @title Drop unused levels after subset
-##' @name subset.drop.all
+##' @name subsetDropAll
 ##'
 ##' @description This function is designed to be used in place of
 ##'     \code{\link[base]{subset}} when you want to drop off all empty
@@ -17,12 +17,12 @@
 ##'     one or more levels emptied after the subset, will have this
 ##'     levels droped off.
 ##'
-##' @author Fernando Mayer \email{fernando.mayer@ufpr.br}
+##' @author Fernando Mayer
 ##'
 ##' @seealso \code{\link[base]{subset}}
 ##'
 ##' @export
-subset.drop.all <- function(x, ...){
+subsetDropAll <- function(x, ...){
     if(!is.data.frame(x)) stop("'x' must be a data.frame")
     x <- subset(x, ...)
     factors <- which(sapply(x, class) %in% "factor")
-- 
GitLab