finishing updates related to exporting %>% pipe

incl. lots of removing library(dplyr) from examples

R/add_totals.R

@@ -10,7 +10,6 @@
 #' @return Returns a data.frame augmented with a totals row, column, or both.
 #' @export
 #' @examples
-#' library(dplyr) # for the %>% pipe
 #' mtcars %>%
 #'   crosstab(am, cyl) %>%
 #'   adorn_totals()
@@ -66,7 +65,6 @@ adorn_totals <- function(dat, which = c("row", "col"), fill = "-", na.rm = TRUE)
 #' @return Returns a data.frame with a totals row, consisting of "Total" in the first column and column sums in the others.
 #' @export
 #' @examples
-#' library(dplyr) # for the %>% pipe
 #' mtcars %>%
 #'   crosstab(am, cyl) %>%
 #'   add_totals_row
@@ -88,7 +86,6 @@ add_totals_row <- function(dat, fill = "-", na.rm = TRUE){
 #' @return Returns a data.frame with a totals column containing row-wise sums.
 #' @export
 #' @examples
-#' library(dplyr) # for the %>% pipe
 #' mtcars %>%
 #'   crosstab(am, cyl) %>%
 #'   add_totals_col

R/adorn_crosstab.R

@@ -13,7 +13,6 @@
 #' @param rounding method to use for truncating percentages - either "half to even", the base R default method, or "half up", where 14.5 rounds up to 15.
 #' @return Returns a data.frame.
 #' @examples
-#' library(dplyr) # for the %>% pipe
 #'mtcars %>%
 #'  crosstab(gear, cyl) %>%
 #'  adorn_crosstab(denom = "all")

R/clean_names.R

@@ -12,7 +12,7 @@
 #' # not run:
 #' # clean_names(poorly_named_df)
 #'
-#' # library(dplyr) ; library(readxl)
+#' # library(readxl)
 #' # not run:
 #' # readxl("messy_excel_file.xlsx") %>% clean_names()
 

R/crosstab.R

@@ -27,12 +27,12 @@
 #' crosstab(mtcars$cyl, mtcars$gear, "row")
 #'
 #' # Passing in a data.frame using a pipeline:
-#' library(dplyr) # to access the pipe operator
 #' mtcars %>% crosstab(cyl, gear)
 #' mtcars %>% crosstab(cyl, gear, "row")
 #' 
 #' # This allows for upstream operations
 #' # prior to the crosstab() call:
+#' library(dplyr)
 #' mtcars %>%
 #'   filter(am == 0) %>%
 #'   crosstab(cyl, gear)

R/get_dupes.R

@@ -9,8 +9,7 @@
 #' @export
 #' @examples
 #' get_dupes(mtcars, mpg, hp)
-#' # or called with magrittr pipe %>% :
-#' library(dplyr)
+#' # or called with the magrittr pipe %>% :
 #' mtcars %>% get_dupes(wt)
 #'
 

R/ns_to_percents.R

@@ -11,7 +11,6 @@
 #' @return Returns a data.frame of percentages, expressed as numeric values between 0 and 1.
 #' @export
 #' @examples
-#' library(dplyr) # for the %>% pipe
 #' mtcars %>%
 #'   crosstab(am, cyl) %>%
 #'   ns_to_percents(denom = "all")

R/remove_empties.R

@@ -7,8 +7,6 @@
 #' @return Returns the data.frame with no empty rows.
 #' @export
 #' @examples
-#' # called with magrittr pipe %>% :
-#' # library(dplyr)
 #' # not run:
 #' # dat %>% remove_empty_rows
 
@@ -25,8 +23,6 @@ remove_empty_rows <- function(dat){
 #' @return Returns the data.frame with no empty columns.
 #' @export
 #' @examples
-#' # called with magrittr pipe %>% :
-#' # library(dplyr)
 #' # not run:
 #' # dat %>% remove_empty_cols
 #'

R/tabyl.R

@@ -23,7 +23,6 @@
 #' tabyl(mtcars$cyl, sort = TRUE)
 #' 
 #' # Passing in a data.frame using a pipeline:
-#' library(dplyr) # to access the pipe operator
 #' mtcars %>% tabyl(cyl, sort = TRUE)
 #' 
 #' # illustrating show_na functionality:

R/utils.R

@@ -2,12 +2,16 @@
 
 #' Pipe operator
 #'
-#' See \code{\link[magrittr]{\%>\%}} for more details.
+#' @description Exported from the magrittr package.  To learn more, run \code{?magrittr::`\%>\%`}.
 #'
 #' @name %>%
 #' @rdname pipe
 #' @keywords internal
 #' @export
 #' @importFrom magrittr %>%
 #' @usage lhs \%>\% rhs
+#' @examples
+#' mtcars %>%
+#'   crosstab(carb, cyl) %>%
+#'   adorn_totals()
 NULL