fix valid_keys for DateType

Author: eblondel

R/geoflow_validator.R

@@ -456,7 +456,7 @@ geoflow_validator_entity_Date <- R6Class("geoflow_validator_entity_Date",
      #'@param j col index (internal index to be used for graphical \pkg{geoflow} validation handlers)
      #'@param str string to validate
      initialize = function(i, j, str){
-       valid_keys <- list(geometa::ISODateType$values(),"edition","embargo")
+       valid_keys <- c(geometa::ISODateType$values(),"edition","embargo")
        super$initialize(TRUE,TRUE, TRUE, valid_keys, "creation",FALSE, TRUE, TRUE, i, j, as(str,"character"))
      },