add switch to differentiate images and links

This will address #143
carpentries · Nov 16, 2023 · bdb6ac3 · bdb6ac3
1 parent e7e5c45
commit bdb6ac3
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/utils-validation.R b/R/utils-validation.R
@@ -55,7 +55,8 @@ throw_link_warnings <- function(VAL) {
 
   reports <- line_report(msg = err$labels, err$filepath, err$sourcepos, sep = " ")
   failed <- !apply(err[names(link_tests)], MARGIN = 2, all)
-  issue_warning(what = "links",
+  types <- paste0(unique(sub("img", "image", err$type)), "s")
+  issue_warning(what = paste(types, collapse = " and "),
     cli = has_cli(), 
     n = nrow(err), 
     N = nrow(VAL),