Appease double-quote lint

matt-dray · matt-dray · commit 989796d2d0eb · 2026-05-19T11:47:38.000+01:00
diff --git a/R/mod_run_model_api_calls.R b/R/mod_run_model_api_calls.R
@@ -54,7 +54,7 @@ mod_run_model_submit <- function(
         }
 
         url <- glue::glue(
-          Sys.getenv('NHP_OUTPUTS_URI'),
+          Sys.getenv("NHP_OUTPUTS_URI"),
           "?{results$dataset}/{results$model_run_id}"
         )
         cat("results url: ", url, "\n", sep = "")

Original file line number	Diff line number	Diff line change
`@@ -54,7 +54,7 @@ mod_run_model_submit <- function(`
`54`	`54`	`}`
`55`	`55`
`56`	`56`	`url <- glue::glue(`
`57`		`- Sys.getenv('NHP_OUTPUTS_URI'),`
	`57`	`+ Sys.getenv("NHP_OUTPUTS_URI"),`
`58`	`58`	`"?{results$dataset}/{results$model_run_id}"`
`59`	`59`	`)`
`60`	`60`	`cat("results url: ", url, "\n", sep = "")`