From ccec6ef9d402c849641eafa6c342af2438c98339 Mon Sep 17 00:00:00 2001
From: Francois Michonneau <francois.michonneau@gmail.com>
Date: Mon, 14 Mar 2016 15:16:29 -0400
Subject: [PATCH] begining to address #60

---
 R/api-collections.R | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 R/api-collections.R

diff --git a/R/api-collections.R b/R/api-collections.R
new file mode 100644
index 00000000..5b18bfc5
--- /dev/null
+++ b/R/api-collections.R
@@ -0,0 +1,28 @@
+##' @importFrom assertthat assert_that is.flag
+## This endpoint currently returns JSON in XML with mime type as text/html
+.collection_find_collections <- function(property = NULL, value = NULL,
+                                         verbose = FALSE, ...) {
+    assertthat::assert_that(assertthat::is.flag(verbose))
+    req_body <- list()
+    req_body$verbose <- verbose
+    res <- otl_POST(path = "collections/find_collections",
+                    body = req_body, ...)
+    res
+}
+
+.collection_properties <- function(...) {
+    req_body <- list()
+    res <- otl_POST(path = "collections/properties",
+                    body = req_body, ...)
+    res
+}
+
+
+.get_collection <- function(owner_id = NULL, collection_name = NULL, ...) {
+    assertthat::assert_that(assertthat::is.string(owner_id))
+    assertthat::assert_that(assertthat::is.string(collection_name))
+    req_body <- list()
+    res <- otl_GET(path = paste("collections", owner_id, collection_name,
+                                sep = "/"), ...)
+    res
+}