From b95e9de8597d9d7fc530e4f87879c0bfb0ba2125 Mon Sep 17 00:00:00 2001
From: bms63 <ben.x.straub@gsk.com>
Date: Thu, 25 Aug 2022 13:13:05 +0000
Subject: [PATCH] Removed example for expect_dfs_equal

---
 R/expect_dfs_equal.R    | 7 -------
 man/expect_dfs_equal.Rd | 7 -------
 2 files changed, 14 deletions(-)

diff --git a/R/expect_dfs_equal.R b/R/expect_dfs_equal.R
index 8e9d49f2..191f2407 100644
--- a/R/expect_dfs_equal.R
+++ b/R/expect_dfs_equal.R
@@ -16,13 +16,6 @@
 #' @family test_helper
 #'
 #' @export
-#'
-#' @examples
-#' library(admiral.test)
-#' \donttest{(testthat::test_that("a missing row is detected", {
-#'   data(admiral_dm)
-#'   expect_dfs_equal(admiral_dm, admiral_dm[-1L, ], keys = "USUBJID")
-#' })}
 expect_dfs_equal <- function(base, compare, keys, ...) {
   diff <- diffdf::diffdf(base, compare, keys, suppress_warnings = TRUE, ...)
   if (diffdf::diffdf_has_issues(diff)) {
diff --git a/man/expect_dfs_equal.Rd b/man/expect_dfs_equal.Rd
index ab4135db..17d8d261 100644
--- a/man/expect_dfs_equal.Rd
+++ b/man/expect_dfs_equal.Rd
@@ -22,13 +22,6 @@ An error if \code{base} and \code{compare} do not match or \code{NULL} invisibly
 \description{
 Uses \code{\link[diffdf:diffdf]{diffdf::diffdf()}} to compares 2 datasets for any differences
 }
-\examples{
-library(admiral.test)
-\donttest{(testthat::test_that("a missing row is detected", {
-  data(admiral_dm)
-  expect_dfs_equal(admiral_dm, admiral_dm[-1L, ], keys = "USUBJID")
-})}
-}
 \author{
 Thomas Neitmann
 }