fix #397

eblondel · eblondel · commit b895f6d9f8da · 2024-11-25T16:59:20.000+01:00
diff --git a/R/geoflow_validator.R b/R/geoflow_validator.R
@@ -112,7 +112,7 @@ geoflow_validator_cell <- R6Class("geoflow_validator_cell",
       #If cell is empty and can be empty it's okay, nothing to validate
       if(private$na_authorized){
         if(is.na(private$str)) return(report)
-        if(private$str == "") return(report)
+        if(as(private$str, "character") == "") return(report)
       }
       #If cell is empty and should't be empty return a error
       if(!private$na_authorized){

Original file line number	Diff line number	Diff line change
`@@ -112,7 +112,7 @@ geoflow_validator_cell <- R6Class("geoflow_validator_cell",`
`112`	`112`	`#If cell is empty and can be empty it's okay, nothing to validate`
`113`	`113`	`if(private$na_authorized){`
`114`	`114`	`if(is.na(private$str)) return(report)`
`115`		`- if(private$str == "") return(report)`
	`115`	`+ if(as(private$str, "character") == "") return(report)`
`116`	`116`	`}`
`117`	`117`	`#If cell is empty and should't be empty return a error`
`118`	`118`	`if(!private$na_authorized){`