ezmiller

Work In Progress

Scicloj Workshop: [Add workshop title]

[Add workshop description]

Workshop Length & Structure

[Describe number of workshop meetings, time and length]

ezmiller

[
  {
    "Promo": 1,
    "Sales": 5263
  },
  {
    "Promo": 1,
    "Sales": 5020
  },
  {

ezmiller

ezmiller

;; Creates a lazy sequence of days from 1970-01-01
(defn days-from-epoch
  ([] (days-from-epoch (java.time.LocalDate/parse "1970-01-01")))
  ([local-date]
   (prn local-date)
   (lazy-seq (cons local-date (days-from-epoch (.plusDays local-date 1))))))

(take 2 (days-from-epoch))
;; => (#time/date "1970-01-01" #time/date "1970-01-02")

ezmiller

# See here: https://github.community/t5/How-to-use-Git-and-GitHub/Checkout-a-branch-from-a-fork/td-p/77

git ls-remote --refs origin -- will list refs for remote `origin`, some will look like `refs/pull/<some-num>/head`

git fetch origin pull/123/head:pr/123 && git checkout pr/123 # fetch and checkout PR #123, eg.

ezmiller

ezmiller

(defn factorial [n]
  (if (= n 1)
    1
    (* n (factorial (- n 1)))))

ezmiller

ezmiller

;; Datomic example code

;; demonstrates various update scenarios, using a news database
;; that contains stories, users, and upvotes

;; grab an in memory database
(use '[datomic.api :only (q db) :as d])
(def uri "datomic:mem://foo")
(d/create-database uri)
(def conn (d/connect uri))

ezmiller

## Function to wrap long strings
# Source: http://stackoverflow.com/a/7367534/496488
wrap_strings <- function(vector_of_strings,width) {
  as.character(
    sapply(vector_of_strings, FUN=function(x) {
      paste(strwrap(x, width=width), collapse="\n")
    })
  )
}