Update R/required_eml_elements.R

RobLBaker · wright13 · web-flow · commit cb842e567624 · 2026-05-20T08:38:41.000-06:00
Co-authored-by: Sarah Wright &lt;sewright@nps.gov&gt;
diff --git a/R/required_eml_elements.R b/R/required_eml_elements.R
@@ -318,7 +318,7 @@ test_dp_abstract <- function(metadata = load_metadata(directory)) {
     }
    if (nchar(abs) > 10000) {
      cli::cli_abort(c(
-      "x" = "The abstract must be less than 10,000 characters.
+      "x" = "The abstract must not exceed 10,000 characters.
       Please revise using {.fn EMLeditor::set_abstract}."))
    }
     x <- sapply(stringr::str_count(abs, "\\w+"), sum)

Original file line number	Diff line number	Diff line change
`@@ -318,7 +318,7 @@ test_dp_abstract <- function(metadata = load_metadata(directory)) {`
`318`	`318`	`}`
`319`	`319`	`if (nchar(abs) > 10000) {`
`320`	`320`	`cli::cli_abort(c(`
`321`		`- "x" = "The abstract must be less than 10,000 characters.`
	`321`	`+ "x" = "The abstract must not exceed 10,000 characters.`
`322`	`322`	`Please revise using {.fn EMLeditor::set_abstract}."))`
`323`	`323`	`}`
`324`	`324`	`x <- sapply(stringr::str_count(abs, "\\w+"), sum)`