capture license expiration error

nmdefries · nmdefries · commit 6f7a7779c938 · 2023-03-22T18:08:03.000-04:00
diff --git a/backfill_corrections/delphiBackfillCorrection/R/model.R b/backfill_corrections/delphiBackfillCorrection/R/model.R
@@ -131,7 +131,13 @@ model_training_and_testing <- function(train_data, test_data, taus, covariates,
 
         success = success + 1
       },
-      error=function(e) {msg_ts("Training failed for ", model_path)}
+      error=function(e) {
+        if (e$message == "Error 10032: License has expired\n") {
+          stop("The gurobi license has expired. Please renew or switch to ",
+            "using glpk. lp_solver can be specified in params.json.")
+        }
+        msg_ts("Training failed for ", model_path)
+      }
     )
   }
   if (success < length(taus)) {return (NULL)}

Original file line number	Diff line number	Diff line change
`@@ -131,7 +131,13 @@ model_training_and_testing <- function(train_data, test_data, taus, covariates,`
`131`	`131`
`132`	`132`	`success = success + 1`
`133`	`133`	`},`
`134`		`- error=function(e) {msg_ts("Training failed for ", model_path)}`
	`134`	`+ error=function(e) {`
	`135`	`+ if (e$message == "Error 10032: License has expired\n") {`
	`136`	`+ stop("The gurobi license has expired. Please renew or switch to ",`
	`137`	`+ "using glpk. lp_solver can be specified in params.json.")`
	`138`	`+ }`
	`139`	`+ msg_ts("Training failed for ", model_path)`
	`140`	`+ }`
`135`	`141`	`)`
`136`	`142`	`}`
`137`	`143`	`if (success < length(taus)) {return (NULL)}`