fixes results url

Author: tomjemmett

R/mod_run_model_api_calls.R

@@ -54,7 +54,8 @@ mod_run_model_submit <- function(
         }
 
         url <- glue::glue(
-          "{Sys.getenv('NHP_OUTPUTS_URI')}?{results$dataset}/{results$model_run_id}"
+          Sys.getenv('NHP_OUTPUTS_URI'),
+          "?{results$dataset}/{results$model_run_id}"
         )
         cat("results url: ", url, "\n", sep = "")
         results_url(url)
@@ -109,7 +110,8 @@ mod_run_model_check_container_status <- function(
       \(response) {
         res <- httr2::resp_body_json(response)
 
-        if (res$state == "Terminated") {
+        state <- res$state %||% "unknown"
+        if (state == "Terminated") {
           if (res$detail_status == "Completed") {
             cat("model run success: ", id, "\n", sep = "")
             status("Success")
@@ -118,7 +120,7 @@ mod_run_model_check_container_status <- function(
             status(glue::glue("Error running the model ({id}): {res$error}"))
           }
           return(NULL)
-        } else if (res$state == "Creating") {
+        } else if (state == "Creating" || state == "unknown") {
           # no need to change status
         } else {
           progress <- res$complete