Remove print, update error

jrdnbradford · jrdnbradford · commit 5bd904562870 · 2024-04-15T21:57:49.000-04:00
diff --git a/inst/WORDLIST b/inst/WORDLIST
@@ -84,6 +84,7 @@ issuehunt
 isTRUE
 jpeg
 json
+jsonvalidate
 KernSmooth
 knitr
 Ko
@@ -152,6 +153,7 @@ Rds
 rds
 readLines
 readme
+readr
 recognised
 relicensing
 RemoteHost
diff --git a/inst/hooks/exported/validate-renv-lock.R b/inst/hooks/exported/validate-renv-lock.R
@@ -103,11 +103,10 @@ validate_renv_lock <- function(renv_path, renv_lock_schema) {
 out <- lapply(files, function(path) {
   is_renv_lock <- grepl("^.*renv\\.lock$", path)
   if (is_renv_lock) {
-    print(paste0(path, " is a renv.lock file"))
     tryCatch(
       validate_renv_lock(path, renv_schema),
       error = function(error) {
-        cat(c("renv.lock at", path, "failed validation. Full context:\n"))
+        cat(c("{renv} lock file at path", path, "failed validation. Full context:\n"))
         stop(conditionMessage(error), call. = FALSE)
       }
     )

Original file line number	Diff line number	Diff line change
`@@ -103,11 +103,10 @@ validate_renv_lock <- function(renv_path, renv_lock_schema) {`
`103`	`103`	`out <- lapply(files, function(path) {`
`104`	`104`	`is_renv_lock <- grepl("^.*renv\\.lock$", path)`
`105`	`105`	`if (is_renv_lock) {`
`106`		`- print(paste0(path, " is a renv.lock file"))`
`107`	`106`	`tryCatch(`
`108`	`107`	`validate_renv_lock(path, renv_schema),`
`109`	`108`	`error = function(error) {`
`110`		`- cat(c("renv.lock at", path, "failed validation. Full context:\n"))`
	`109`	`+ cat(c("{renv} lock file at path", path, "failed validation. Full context:\n"))`
`111`	`110`	`stop(conditionMessage(error), call. = FALSE)`
`112`	`111`	`}`
`113`	`112`	`)`