使用棱镜/模式强制,可以在强制失败时使用默认值而不是错误信息。
我在csv文件中有一个值可能是空白(nil)或s / Int。目前使用以下代码我得到了空白:
#schema.utils.ErrorContainer{:error (not (integer? nil))}
代码:
(def answers (slurp "excel/answers.csv"))
(def answers-field-schemas [s/Int s/Int s/Str s/Str s/Str s/Int s/Str s/Int s/Str s/Int s/Str s/Int s/Str s/Int s/Str])
(def answers-field-coercers
(mapv coerce/coercer
answers-field-schemas
(repeat coerce/string-coercion-matcher)))
(defn answers-coerce-fields [fields]
(mapv #(%1 %2) answers-field-coercers fields))
(def answers->data (map answers-coerce-fields (csv/parse-csv answers :end-of-line "\r")))
答案 0 :(得分:3)
1。您得到的错误不是强制错误,而是验证错误。值必须符合初始模式。
2。要解决此问题,您需要删除可能为nil
的字段的架构。让我们说这是第二个领域:
(def answers-field-schemas [s/Int (s/maybe s/Int) ...])
此时,您将获得nil
而不是nil
字段的错误:
user> (answers-coerce-fields ["1" nil])
[1 nil]
3。如果您在强制后确实需要默认值而不是nil
s,则需要自定义强制匹配器。像这样:
(import 'schema.core.Maybe)
(defn field-matcher-with-default [default]
(fn [s]
(let [string-coercion-fn (or (coerce/string-coercion-matcher s)
identity)
maybe-coercion-fn (if (instance? schema.core.Maybe s)
(fnil identity default)
identity)]
(comp
string-coercion-fn
maybe-coercion-fn))))
还修改以前的coercers如下:
(def answers-field-coercers
(mapv coerce/coercer
answers-field-schemas
;; your default here
(repeat (field-matcher-with-default -1))))
然后:
user> (answers-coerce-fields ["1" nil])
[1 -1]
请注意,默认值也必须符合架构,因此无法为架构String
设置(s/maybe s/Int)
类型的默认值。