added f_num example for dplyr

trinker · Dec 22, 2016 · 7667f35 · 7667f35
1 parent 31201e9
commit 7667f35
Show file tree

Hide file tree

Showing 4 changed files with 20 additions and 0 deletions.
diff --git a/R/f_num.R b/R/f_num.R
@@ -26,6 +26,14 @@
 #' ## Units
 #' f_num(c(30, 33.45, .1), 2, s=" in.<sup>2</sup>")
 #' f_num(c(30, 33.45, .1), 2, p="&Chi;<sup>2</sup>=")
+#'
+#' \dontrun{
+#' library(dplyr)
+#' is.int <- function(x) !all(x %% 1 == 0)
+#'
+#' mtcars %>%
+#'     mutate_if(.funs = f_num, is.int)
+#' }
 f_num <- function(x, digits = getOption("numformdigits"), p, s) {
 
     if (is.null(digits)) digits <- 1

diff --git a/R/fv_percent_diff.R b/R/fv_percent_diff.R
@@ -19,6 +19,8 @@
 #' )
 #'
 #' \dontrun{
+#' library(dplyr)
+#'
 #' CO2 %>%
 #'     group_by(Plant) %>%
 #'     mutate(

diff --git a/man/f_num.Rd b/man/f_num.Rd
diff --git a/man/fv_percent_diff.Rd b/man/fv_percent_diff.Rd