Bugs in getting source relationships.

athan-dial · Mar 3, 2016 · 90aa59e · 90aa59e
1 parent e6d7b1b
commit 90aa59e
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 4 deletions.
diff --git a/R/atoms.R b/R/atoms.R
@@ -1,3 +1,7 @@
+get_atom_rels <- function(AUI){
+
+}
+
 #' Get familial relationships for a given Atom.
 #'
 #' @param AUI The AUI of interest.

diff --git a/R/sources.R b/R/sources.R
@@ -23,7 +23,7 @@ get_source_info <- function(source, id) {
 #' @export
 #'
 get_source_atoms <- function(source, id, sabs = NULL, ttys = NULL, language = NULL, includeObsolete = FALSE, includeSuppressible = FALSE, preferred = FALSE) {
-    exhaust_search(FUN = get_source_atoms_page, source = source, id = id, sabs = sabs, ttys = ttys, language = language, includeObsolete = includeObsolete,
+    exhaust_search(FUN = get_source_atoms_page,PARSER = parse_results, source = source, id = id, sabs = sabs, ttys = ttys, language = language, includeObsolete = includeObsolete,
         includeSuppressible = includeSuppressible, preferred = preferred)
 }
 
@@ -55,11 +55,11 @@ get_source_rels <- function(source, id, includeRelationLabels = NULL, includeAdd
     if (!is.null(includeAdditionalRelationLabels)) {
         includeAdditionalRelationLabels <- paste(includeAdditionalRelationLabels, collapse = ",")
     }
-    exhaust_search(FUN = get_source_rels_page, source = source, id = id, includeRelationLabels = includeRelationLabels, includeAdditionalRelationLabels = includeAdditionalRelationLabels)
+    exhaust_search(FUN = get_source_rels_page, PARSER = parse_results, source = source, id = id, includeRelationLabels = includeRelationLabels, includeAdditionalRelationLabels = includeAdditionalRelationLabels)
 }
 
 get_source_rels_page <- function(source, id, includeRelationLabels = NULL, includeAdditionalRelationLabels = NULL, pageNumber = 1, pageSize = 25) {
-    params <- list(ticket = get_service_ticket(get_TGT()), includeRelationLabels = includeRelationLabels, includeAdditionalRelationLabels = includeAdditionalRelationLabels)
+    params <- list(ticket = get_service_ticket(get_TGT()), includeRelationLabels = includeRelationLabels, includeAdditionalRelationLabels = includeAdditionalRelationLabels, pageNumber = pageNumber, pageSize = pageSize)
     r <- GET(restBaseURL, path = paste0("rest/content/current/source/", source, "/", id, "/relations"), query = params)
     r
 }

diff --git a/man/get_all_children.Rd b/man/get_all_children.Rd