allow spaces

R/validate_model_data.R

@@ -31,7 +31,7 @@ validate_model_data <- function(data_file, data_schema) {
       validations <- c(validations, fhub_check(
         data_file,
         grepl(
-          "^\\d{4}\\-\\d{2}\\-\\d{2}-[a-zA-Z0-9_]+-[a-zA-Z0-9_]+(-[A-Z]{2})?(-[[:alpha:]]+)?\\.csv(\\.gz)?$",
+          "^\\d{4}\\-\\d{2}\\-\\d{2}-[a-zA-Z0-9_]+-[a-zA-Z0-9_]+(-[A-Z]{2})?(-[[:alpha:][:blank:]]+)?\\.csv(\\.gz)?$",
           fs::path_file(data_file)
         ),
         "Filename", "formed of a date, a model name, and optionally a country and/or target separated by an hyphen"