one-click-dataset-prefer-it-all.json

{
    "name": "1-Click Dataset Prefer-it-All",
    "description": "Given a source, creates a 1-click dataset and then marks all non-preferred field as preferred.",
    "inputs": [
        {
            "name": "source",
            "type": "source-id",
            "description": "Source to process."
        }
    ],
    "outputs": [
        {
            "name": "dataset",
            "type": "dataset-id",
            "description": "The 1-click dataset with all fields marked as preferred."
        }
    ]
}

one-click-dataset-prefer-it-all.whizzml

;
; Given a source id or record, create a 1-click dataset and then
; mark every non-preferred field as preferred
;
(define (one-click-dataset-prefer-it-all source)
  (let (dataset (create-and-wait-dataset source)
        dataset-rec (fetch dataset)
        field-ids (keys (get dataset-rec "fields"))
        update-map
        (loop (ids field-ids update-map {})
              (if (= ids [])
                  update-map
                  (let (this (head ids) rest (tail ids))
                    (if (= (get-in dataset-rec ["fields" this "preferred"])
                           true)
                        (recur rest update-map)
                        (recur rest
                               (assoc update-map this {"preferred" true})))))))
    (update dataset {"fields" update-map})))  
    
(define dataset (one-click-dataset-prefer-it-all source))