我是clojure和试剂的新手。我试图生成动态数量的复选框,其状态存储在应用程序状态中,这是一个像这样的字典列表
[{:checked false, :text "Sample text 1"} {:checked false, :text "Sample text 2"} {:checked false, :text "Sample text 3"}]
下面的函数预计会生成一个对应于应用程序db(db
)的指定索引的复选框。该功能可以完成工作,并且复选框是可点击的。
(defn gen-checkbox [index db]
[re-com/checkbox
:label (:text (@db index))
:model (:checked (@db index))
:on-change #(swap! db assoc-in [index :checked] (not(:checked (@db index))))
])
但是,当我单击任何复选框时,我会在浏览器控制台中收到此错误。
Uncaught Error: Assert failed: Reaction is read only; on-set is not allowed
错误发生在swap!
。有人能指出我做错了什么吗?
db初始化部分如下:
(re-frame/reg-event-db ::initialize-db
(fn [_ _]
(atom [{:checked false :text "Sample text"}, {:checked false :text "Sample text"}, {:checked false :text "Sample text"}])
))
我还有一个功能来检索数据库。我目前正在
(re-frame/reg-sub ::getdb
(fn [db]
@db
))