crosstab() and tabyl() now appear in package manual

closes #65

R/crosstab.R

@@ -41,9 +41,8 @@
 crosstab <- function(...) UseMethod("crosstab")
 
 #' @inheritParams crosstab
-#' @describeIn crosstab Create a crosstab from two vectors.
+#' @rdname crosstab
 #' @export
-#' @keywords internal
 crosstab.default <- function(vec1, vec2, percent = "none", show_na = TRUE, ...){
 
   if(!mode(vec1) %in% c("logical", "numeric", "character", "list") | is.matrix(vec1)){
@@ -101,10 +100,8 @@ crosstab.default <- function(vec1, vec2, percent = "none", show_na = TRUE, ...){
 #' @inheritParams crosstab.default
 #' @param .data (optional) a data.frame, in which case \code{vec1} and \code{vec2} should be unquoted column names.
 #' @param ... additional arguments, if calling \code{crosstab} on a data.frame.
-#' @describeIn crosstab Create a crosstab from a data.frame,
-#' supplying unquoted names of the two columns to crosstab.
+#' @rdname crosstab
 #' @export
-#' @keywords internal
 crosstab.data.frame <- function(.data, ...){
   # collect dots
   dots <- as.list(substitute(list(...)))[-1L] #

R/tabyl.R

@@ -16,7 +16,6 @@
 #' @param ... additional arguments, if calling \code{tabyl} on a data.frame.
 #' @return Returns a data.frame with the frequencies and percentages of the tabulated variable.
 #' @export
-#' @rdname tabyl
 #' @examples
 #' # Calling on a vector:
 #' val <- c("hi", "med", "med", "lo")
@@ -25,7 +24,7 @@
 #' 
 #' # Passing in a data.frame using a pipeline:
 #' library(dplyr) # to access the pipe operator
-#' mtcars %>% tabyl(cyl)
+#' mtcars %>% tabyl(cyl, sort = TRUE)
 #' 
 #' # illustrating show_na functionality:
 #' my_cars <- rbind(mtcars, rep(NA, 11))