CRAN Feedback: Description update. Using donttest rather than dontrun

DESCRIPTION

@@ -13,10 +13,9 @@ Authors@R: c(
     person("F. Hoffmann-La Roche AG", role = c("cph", "fnd")),
     person("GlaxoSmithKline LLC", role = c("cph", "fnd"))
     )
-Description: A toolbox for developers working on admiral packages.
- Package contains functions that are used internally to admiral and admiral extension packages to 
- check data, variables and conditions. Package also contains utility functions to help developer with
- documentation, testing and general upkeep of admiral and admiral extension packages.  
+Description: Utility functions to check data, variables and conditions for functions used in
+ 'admiral' and 'admiral' extension packages.  Additional utility helper functions to to assist developers 
+ with maintaining documentation, testing and general upkeep of 'admiral' and 'admiral' extension packages.  
 License: Apache License (>= 2)
 URL: https://pharmaverse.github.io/admiraldev/main/, https://github.com/pharmaverse/admiraldev/
 Encoding: UTF-8

R/expect_dfs_equal.R

@@ -18,12 +18,11 @@
 #' @export
 #'
 #' @examples
-#' \dontrun{
-#' testthat::test_that("a missing row is detected", {
-#'   data(dm)
-#'   expect_dfs_equal(dm, dm[-1L, ], keys = "USUBJID")
-#' })
-#' }
+#' 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)) {