#298 minimal locale validation

r-geoflow · Dec 20, 2022 · e2c0fae · e2c0fae
1 parent 10bdc95
commit e2c0fae
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/R/geoflow_validator.R b/R/geoflow_validator.R
@@ -170,6 +170,14 @@ geoflow_validator_cell <- R6Class("geoflow_validator_cell",
                   }
                 }
               }
+              if("locale" %in% names(kvp)){
+                if(nchar(kvp$locale)!= 2){
+                  report <- rbind(report, data.frame(type = "ERROR", message = sprintf("Locale value '%s' is invalid, it should be a locale ISO 2 code", kvp$locale)))
+                }
+                if(kvp$locale != toupper(kvp$locale)){
+                  report <- rbind(report, data.frame(type = "ERROR", message = sprintf("Locale value '%s' is invalid, locale ISO 2 code should be uppercase", kvp$locale)))
+                }
+              }
             }
           }