diff --git a/R/fnsComparison.R b/R/fnsComparison.R index 2476292..6ad2d5a 100644 --- a/R/fnsComparison.R +++ b/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("+", "-", "="), diff --git a/R/fnsOutputs.R b/R/fnsOutputs.R index c20c55a..e1e6131 100644 --- a/R/fnsOutputs.R +++ b/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") diff --git a/cran-comments.md b/cran-comments.md index d6f3d8b..06d66c5 100644 --- a/cran-comments.md +++ b/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 diff --git a/man/compare_df.Rd b/man/compare_df.Rd index dcfdfb7..d9ac1e7 100644 --- a/man/compare_df.Rd +++ b/man/compare_df.Rd @@ -47,12 +47,3 @@ is shown off. Doesn't apply to categorical variables.} \description{ Do a git style comparison between two data frames of similar columnar structure } -\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} -} diff --git a/man/view_html.Rd b/man/view_html.Rd index 17313e1..3953a9d 100644 --- a/man/view_html.Rd +++ b/man/view_html.Rd @@ -12,12 +12,3 @@ view_html(comparison_output) \description{ Some versions of Rstudio doesn't automatically show the html pane for the html output. This is a workaround } -\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) -}