R/rest-api.R

In Sage-Bionetworks/schemann: Synapse Annotation Schemas

#' restGET wrapper
#'
#' Wrapper for the Synapse restGET API call.
#'
#' @noRd
#' @param syn Synapse login object
#' @param uri The uri for the API call
rest_get <- function(syn, uri) {
  syn$restGET(uri = uri)
}

#' restPUT wrapper
#'
#' Wrapper for the Synapse restPUT API call.
#'
#' @noRd
#' @inheritParams rest_get
#' @param body The body for the API call. Default is NULL since not all restPUT
#' API calls require a body.
rest_put <- function(syn, uri, body = NULL) {
  if (is.null(body)) {
    syn$restPUT(uri = uri)
  } else {
    syn$restPUT(uri = uri, body = body)
  }
}

#' restPOST wrapper
#'
#' Wrapper for the Synapse restPOST API call.
#'
#' @noRd
#' @inheritParams rest_put
rest_post <- function(syn, uri, body = NULL) {
  if (is.null(body)) {
    # synapseclient requires a body for all restPOST calls, even if API doesn't
    syn$restPOST(uri = uri, body = "")
  } else {
    syn$restPOST(uri = uri, body = body)
  }
}

#' restDELETE wrapper
#'
#' Wrapper for the Synapse restDELETE API call.
#'
#' @noRd
#' @inheritParams rest_get
rest_delete <- function(syn, uri) {
  syn$restDELETE(uri = uri)
}