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 }