是否有可能在没有无限循环的情况下创建一个异步重置的组件局部原子？

Question

我想创建一个试剂组件，其内容由ajax请求的处理程序更改。使用局部原子产生无限循环GETting资源并更新原子，从而触发组件的重新渲染。

例：

(ns example
  (:require
    [reagent.core :as r]
    [ajax.core :refer [GET POST]]))

(defn get-data []
  (let [ret (r/atom "")]
    (GET "/ajax/" {:handler (partial reset! ret)})
    ret))

(defn page []
  (let [data @(get-data)]
    [:div data]))

(defn init! []
  (r/render [#'page] (.-body js/document)))

“全局”原子将起作用，因为它不会在每次重新渲染时重新创建：

(ns example
  (:require
    [reagent.core :as r]
    [ajax.core :refer [GET POST]]))

(def global-atom (r/atom ""))
(defn get-data []
  (let [ret global-atom]
    (GET "/ajax/" {:handler (partial reset! ret)})
    ret))

(defn page []
  (let [data @(get-data)]
    [:div data]))

(defn init! []
  (r/render [#'page] (.-body js/document)))

全球def是唯一可行的解​​决方案，还是有办法用局部原子解决这个问题？

Answer 1

我相信如果您使用第二种形式的试剂视图，它不应该触发自己：

(defn page []
  (let [data (get-data)]
    (fn []
      [:div @data])))

如果视图函数返回一个函数，那么该函数将成为React组件的render函数。否则视图函数本身就变成了render。