avoid nesting paste() inside stop()

I want to wrap lines inside `sprintf()` ref #497
OuhscBbmc · Jul 13, 2023 · 56f11f9 · 56f11f9
1 parent 1449042
commit 56f11f9
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/redcap-metadata-coltypes.R b/R/redcap-metadata-coltypes.R
@@ -306,15 +306,15 @@ redcap_metadata_internal <- function(
 
   if (is.na(d_proj$has_repeating_instruments_or_events[1])) { # nocov start
     # Don't test coverage for this block b/c it only executes for old versions of REDCap
-    stop(
+    error_message <-
       sprintf(
         paste(
           "The REDCap instance at %s failed to report if the",
           "current project uses repeatable instruments or events."
         ),
         redcap_uri
       )
-    )
+    stop(error_message)
   } # nocov end
 
   if (d_proj$has_repeating_instruments_or_events[1]) {