如何創建appendChild試劑元素？

Question

例如：

(defn place-background [] 
     [:div {:class "pbackground" 
      :style {:height (:fullheight @app-state)}}]) 

    (reagent/render-appendChild [place-background] 
          (. js/document (getElementById "container"))) 

，因爲如果我使用渲染組件將取代內容

Answer 1

(ns reagenttest.core 
    (:require [reagent.core :as r])) 


(defn sample-comp [] 
    [:div "hello there!"]) 

(defn appended-container [target] 
    (let [id "some-unique-id" 
      container (.getElementById js/document id)] 

     (if container 
      container 
      (.appendChild target (doto (.createElement js/document "div") 
            (-> (.setAttribute "id" id)))) 
      ))) 

(r/render [sample-comp] (appended-container (.getElementById js/document "app")))