be laxer with model name check

european-modelling-hubs · Jul 18, 2023 · babe463 · babe463
1 parent c88abe4
commit babe463
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/validate_model.R b/R/validate_model.R
@@ -61,7 +61,8 @@ validate_model <- function(
              identical(
                model_name,
                gsub(
-                 "^\\d{4}\\-\\d{2}\\-\\d{2}-([a-zA-Z0-9_]+-[a-zA-Z0-9_]+)(-[A-Z]{2})?(-[[:alpha:]]+)?\\.csv(\\.gz)?$", "\\1", # nolint
+                 "^\\d{4}\\-\\d{2}\\-\\d{2}-([a-zA-Z0-9_]+-[a-zA-Z0-9_]+).*$",
+                 "\\1",
                  fs::path_file(file)
                )
              ),