获取错误未捕获错误:断言失败:反应是只读的; 不允许使用现场

vis*_*uvp 4 clojure clojurescript single-page-application reagent re-frame

我是clojure和试剂的新手.我试图生成动态数量的复选框,其状态存储在app状态,这是一个像这样的dicts列表

[{:checked false, :text "Sample text 1"} {:checked false, :text "Sample text 2"} {:checked false, :text "Sample text 3"}]

下面的函数应该生成一个对应于app的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))))
     ])
Run Code Online (Sandbox Code Playgroud)

但是,当我单击任何复选框时,我在浏览器控制台中收到此错误.

Uncaught Error: Assert failed: Reaction is read only; on-set is not allowed
Run Code Online (Sandbox Code Playgroud)

错误发生在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"}])
   ))
Run Code Online (Sandbox Code Playgroud)

我还有一个功能来检索数据库.我现在正在

(re-frame/reg-sub ::getdb 
   (fn [db]
      @db
   ))
Run Code Online (Sandbox Code Playgroud)

Ale*_*eph 6

基于您的问题的标签,我假设您正在使用重新框架.

无法直接在重新框架中更新数据库.相反,您应该注册一个更新数据库的事件处理程序,如下所示(确切的代码取决于数据库的结构):

;; (require '[re-frame.core :as rf])

(rf/reg-event-db
 :toggle-checkbox
 (fn [db [_ index]]
   (update-in db [index :checked] not)))
Run Code Online (Sandbox Code Playgroud)

然后在复选框的渲染器的代码中调度事件:

...
:on-change #(rf/dispatch [:toggle-checkbox index])
...
Run Code Online (Sandbox Code Playgroud)