genesys.R 1.35 KB
Newer Older
Matija Obreza's avatar
Matija Obreza committed
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
# Copyright 2018 Global Crop Diversity Trust
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
#     http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.


#' Who am i?
#'
#' @export
me <- function() {
  resp <- api_call("/me")
  message(jsonlite::toJSON(resp, pretty = TRUE))
  invisible(resp)
}

#' Fetch accession passport data
#'
#' @param filters an R \code{structure} with Genesys filters
#' @param size number of records to load per page (page size)
#' @param page the page index (0-based)
#'
#' @seealso \code{\link{mcpd_filter}}
#'
#' @examples
#'   # Retrieve accession data by DOI
Matija Obreza's avatar
Matija Obreza committed
35
#'   accessions <- fetch_accessions(mcpd_filter(ORIGCTY = c("DEU", "SVN")))
Matija Obreza's avatar
Matija Obreza committed
36
37
38
39
40
41
42
#'
#' @export
#' @return Paged data structure
fetch_accessions <- function(filters = list(), page = 0, size = 100) {
  resp <- post(path = "/acn/filter", query=list(p = page, s = size), body = filters)
  jsonlite::fromJSON(httr::content(resp, "text"), simplifyVector = FALSE)
}