Removed examples

R/fnsComparison.R

@@ -31,14 +31,6 @@ utils::globalVariables(c("is_changed", "newold_type"))
 #' @importFrom rlang .data
 #' @importFrom tibble rownames_to_column
 #' @export
-#' @examples
-#' old_df = data.frame(var1 = c("A", "B", "C"),
-#'                     val1 = c(1, 2, 3))
-#' new_df = data.frame(var1 = c("A", "B", "C"),
-#'                     val1 = c(1, 2, 4))
-#' ctable = compare_df(new_df, old_df, c("var1"))
-#' print(ctable$comparison_df)
-#' \dontrun{ctable$html_output}
 compare_df <- function(df_new, df_old, group_col, exclude = NULL, tolerance = 0, tolerance_type = 'ratio',
                        stop_on_error = TRUE, keep_unchanged_rows = FALSE, keep_unchanged_cols = TRUE,
                        change_markers = c("+", "-", "="),

R/fnsOutputs.R

@@ -162,14 +162,6 @@ create_wide_output <- function(comparison_output, suffix = c("_new", "_old")){
 #'
 #' @param comparison_output output from the comparisonDF compare function
 #' @export
-#' @examples
-#' old_df = data.frame(var1 = c("A", "B", "C"),
-#'                     val1 = c(1, 2, 3))
-#' new_df = data.frame(var1 = c("A", "B", "C"),
-#'                     val1 = c(1, 2, 4))
-#' ctable = compare_df(new_df, old_df, c("var1"))
-#' # Not Run::
-#' # view_html(ctable)
 view_html <- function(comparison_output){
   temp_dir = tempdir()
   temp_file <- paste0(temp_dir, "/temp.html")

cran-comments.md

@@ -6,7 +6,7 @@ This is a resubmission of new version. In this version I have:
 
 * Changed deprecated `_gather` to `pivot_longer` (thanks to `olivroy`!)
 * Fixed a bug where `compare_df` would mutate the global data to data.table
-
+* Removed all examples from the code because CRAN server can't handle it
 
 ## Test environments