reagent react-native animation example

sample.cljs

(def animated (.-Animated js/React))
(def animated-value (.-Value animated))
(def animated-view (r/adapt-react-class (.-View animated)))


(defn testview []
    (r/create-class
      {:get-initial-state
        #(clj->js {:bounceValue (animated-value. 0)})
       :component-did-mount
        (fn [this]
          (.setValue (.. this -state -bounceValue) 1.5)
          (->
            (.spring animated (.. this -state -bounceValue) #js {:toValue 0.8
                                                                 :friction 1})
            (.start)))
       :display-name "test-view"
       :reagent-render
          (fn []
            (let [this (r/current-component)]
              [animated-view {:style {:flex 1
                                      :transform [{:scale (.. this -state -bounceValue)}]
                                      :backgroundColor "red"
                                      :borderRadius 10
                                      :margin 15
                                      :shadowColor "#000000"
                                      :shadowOpacity 0.7
                                      :shadowRadius 2
                                      :shadowOffset {:height 1 :width 0}}}
                [text {} "This is a test"]]))}))