Update R/check_authorized_users.R

O957 · dylanhmorris · web-flow · commit 39bcdf250ebf · 2025-09-18T17:15:44.000-04:00
Co-authored-by: Dylan H. Morris &lt;dylanhmorris@users.noreply.github.com&gt;
diff --git a/R/check_authorized_users.R b/R/check_authorized_users.R
@@ -63,7 +63,7 @@ check_authorized_users <- function(
             ),
           .data$has_authorized_users ~
             glue::glue(
-              "Only the following users can modify: '{.data$dir}/': {.data$authorized_users}"
+              "Only the following users can modify the model directory '{.data$dir}/': {.data$authorized_users}"
             ),
           TRUE ~ "Encountered an unexpected error while checking change authorization."
         )

Original file line number	Diff line number	Diff line change
`@@ -63,7 +63,7 @@ check_authorized_users <- function(`
`63`	`63`	`),`
`64`	`64`	`.data$has_authorized_users ~`
`65`	`65`	`glue::glue(`
`66`		`- "Only the following users can modify: '{.data$dir}/': {.data$authorized_users}"`
	`66`	`+ "Only the following users can modify the model directory '{.data$dir}/': {.data$authorized_users}"`
`67`	`67`	`),`
`68`	`68`	`TRUE ~ "Encountered an unexpected error while checking change authorization."`
`69`	`69`	`)`