unwrap examples

rsquaredacademy · Dec 28, 2018 · 6b65596 · 6b65596
1 parent e41ebf1
commit 6b65596
Show file tree

Hide file tree

Showing 15 changed files with 4 additions and 36 deletions.
diff --git a/R/rbin-create-bins.R b/R/rbin-create-bins.R
@@ -9,10 +9,8 @@
 #' @return \code{data} with dummy variables.
 #'
 #' @examples
-#' \donttest{
 #' k <- rbin_manual(mbank, y, age, c(29, 31, 34, 36, 39, 42, 46, 51, 56))
 #' rbin_create(mbank, age, k)
-#' }
 #'
 #' @export
 #'

diff --git a/R/rbin-equal-freq.R b/R/rbin-equal-freq.R
@@ -10,9 +10,7 @@
 #' @return A \code{tibble}.
 #'
 #' @examples
-#' \donttest{
 #' rbin_equal_freq(mbank, y, age, 10)
-#' }
 #'
 #' @importFrom magrittr %>%
 #' @importFrom rlang !!

diff --git a/R/rbin-equal-length.R b/R/rbin-equal-length.R
@@ -13,14 +13,12 @@
 #' @return A \code{tibble}.
 #'
 #' @examples
-#' \donttest{
 #' bins <- rbin_equal_length(mbank, y, age, 10)
 #' bins
 #'
 #' # plot
 #' plot(bins)
 #'
-#' }
 #' @export
 #'
 rbin_equal_length <- function(data = NULL, response = NULL, predictor = NULL, bins = 10, include_na = TRUE) UseMethod("rbin_equal_length")

diff --git a/R/rbin-factor.R b/R/rbin-factor.R
@@ -58,14 +58,12 @@ rbin_factor_combine <- function(data, var, new_var, new_name) {
 #' @param ... further arguments passed to or from other methods.
 #'
 #' @examples
-#' \donttest{
 #' bins <- rbin_factor(mbank, y, education)
 #' bins
 #'
 #' # plot
 #' plot(bins)
-#' }
-#'
+#' 
 #' @importFrom magrittr %<>%
 #'
 #' @export
@@ -178,12 +176,10 @@ plot.rbin_factor <- function(x, ...) {
 #' @return A \code{tibble} with dummy variables.
 #'
 #' @examples
-#' \donttest{
 #' upper <- c("secondary", "tertiary")
 #' out <- rbin_factor_combine(mbank, education, upper, "upper")
 #' rbin_factor_create(out, education)
-#' }
-#'
+#' 
 #' @export
 #'
 rbin_factor_create <- function(data, predictor) {

diff --git a/R/rbin-manual.R b/R/rbin-manual.R
@@ -19,14 +19,12 @@
 #'   values between the minimum and including 36, then you will enter the value 37. 
 #'
 #' @examples
-#' \donttest{
 #' bins <- rbin_manual(mbank, y, age, c(29, 31, 34, 36, 39, 42, 46, 51, 56))
 #' bins
 #'
 #' # plot
 #' plot(bins)
-#' }
-#'
+#' 
 #' @export
 #'
 rbin_manual <- function(data = NULL, response = NULL, predictor = NULL, cut_points = NULL, include_na = TRUE) UseMethod("rbin_manual")

diff --git a/R/rbin-quantile.R b/R/rbin-quantile.R
@@ -13,14 +13,12 @@
 #' @return A \code{tibble}.
 #'
 #' @examples
-#' \donttest{
 #' bins <- rbin_quantiles(mbank, y, age, 10)
 #' bins
 #'
 #' # plot
 #' plot(bins)
-#' }
-#'
+#' 
 #' @export
 #'
 rbin_quantiles <- function(data = NULL, response = NULL, predictor = NULL, bins = 10, include_na = TRUE) UseMethod("rbin_quantiles")

diff --git a/R/rbin-winsorize.R b/R/rbin-winsorize.R
@@ -16,13 +16,11 @@
 #' @return A \code{tibble}.
 #'
 #' @examples
-#' \donttest{
 #' bins <- rbin_winsorize(mbank, y, age, 10, winsor_rate = 0.05)
 #' bins
 #'
 #' # plot
 #' plot(bins)
-#' }
 #'
 #' @export
 #'

diff --git a/man/rbin_create.Rd b/man/rbin_create.Rd
diff --git a/man/rbin_equal_freq.Rd b/man/rbin_equal_freq.Rd
diff --git a/man/rbin_equal_length.Rd b/man/rbin_equal_length.Rd
diff --git a/man/rbin_factor.Rd b/man/rbin_factor.Rd
diff --git a/man/rbin_factor_create.Rd b/man/rbin_factor_create.Rd
diff --git a/man/rbin_manual.Rd b/man/rbin_manual.Rd
diff --git a/man/rbin_quantiles.Rd b/man/rbin_quantiles.Rd
diff --git a/man/rbin_winsorize.Rd b/man/rbin_winsorize.Rd