Make not runnable some examples to pass CRAN check

R/cross.R

@@ -59,6 +59,7 @@ TOTAL_STATISTICS = c("u_cases", "w_cases", "u_responses", "w_responses", "u_cpct
 #' @seealso \link{tables}, \link{fre}, \link{cro_fun}.
 #'
 #' @examples
+#' \dontrun{
 #' data(mtcars)
 #' mtcars = apply_labels(mtcars,
 #'                       mpg = "Miles/(US) gallon",
@@ -136,6 +137,7 @@ TOTAL_STATISTICS = c("u_cases", "w_cases", "u_responses", "w_responses", "u_cpct
 #' cross_cpct(brands, mrset(brand_1 %to% brand_4), list(total(), score))
 #' # responses
 #' cross_cpct_responses(brands, mrset(brand_1 %to% brand_4), list(total(), score))
+#' }
 #' @export
 cross_cases = function(data,
                     cell_vars, 

R/custom_tables.R

@@ -137,6 +137,7 @@ SIGNIFICANCE_OPTIONS = "significance_options"
 #'
 #' @name tables
 #' @examples
+#' \dontrun{
 #' data(mtcars)
 #' mtcars = apply_labels(mtcars,
 #'                       mpg = "Miles/(US) gallon",
@@ -358,6 +359,7 @@ SIGNIFICANCE_OPTIONS = "significance_options"
 #'         tab_stat_fun(Mean = w_mean, "Std. dev." = w_sd, "Valid N" = w_n) 
 #' }
 #' tables %>% tab_pivot()
+#' } 
 tab_cols = function(data, ...){
     data = check_class(data)
     expr = substitute(list(...))

R/prepend_names.R

@@ -14,6 +14,7 @@
 #' @export
 #'
 #' @examples
+#' \dontrun{
 #' data(mtcars)
 #' mtcars = apply_labels(mtcars,
 #'                       mpg = "Miles/(US) gallon",
@@ -60,7 +61,8 @@
 #'    tab_prepend_all %>% 
 #'    tab_cols(total(), vs, am) %>% 
 #'    tab_stat_cpct() %>% 
-#'    tab_pivot()   
+#'    tab_pivot()  
+#'    } 
 prepend_values = function(x){
     UseMethod("prepend_values")
 }

R/tab_sort.R

@@ -26,6 +26,7 @@
 #' @export
 #'
 #' @examples
+#' \dontrun{
 #' data(mtcars)
 #'
 #' # apply labels
@@ -55,7 +56,7 @@
 #' mtcars %>% 
 #'     cross_cpct(list(cyl, gear, carb), list("#total", vs, am)) %>% 
 #'     tab_sort_desc((sorting_column))
-#'     
+#' }    
 tab_sort_asc = function(x, ..., excluded_rows = "#", na.last = FALSE){
     UseMethod("tab_sort_asc")
 }