R/dataset_template.R

In solvebio: The Official SolveBio API Client

#' DatasetTemplate.all
#'
#' Retrieves the metadata about all dataset templates on SolveBio.
#'
#' @param env (optional) Custom client environment.
#' @param ... (optional) Additional query parameters (e.g. page).
#'
#' @examples \dontrun{
#' DatasetTemplate.all()
#' }
#'
#' @references
#' \url{https://docs.solvebio.com/}
#'
#' @export
DatasetTemplate.all <- function(env = solvebio:::.solveEnv, ...) {
    .request('GET', "v2/dataset_templates", query=list(...), env=env)
}


#' DatasetTemplate.retrieve
#'
#' Retrieves the metadata about a specific dataset template on SolveBio.
#'
#' @param id String The ID of a SolveBio dataset template.
#' @param env (optional) Custom client environment.
#'
#' @examples \dontrun{
#' DatasetTemplate.retrieve(<ID>)
#' }
#'
#' @references
#' \url{https://docs.solvebio.com/}
#'
#' @export
DatasetTemplate.retrieve <- function(id, env = solvebio:::.solveEnv) {
    if (missing(id)) {
        stop("A dataset template ID is required.")
    }

    path <- paste("v2/dataset_templates", paste(id), sep="/")
    .request('GET', path=path, env=env)
}


#' DatasetTemplate.delete
#'
#' Deletes a specific dataset template on SolveBio.
#'
#' @param id String The ID or full name of a SolveBio dataset template.
#' @param env (optional) Custom client environment.
#'
#' @examples \dontrun{
#' DatasetTemplate.delete(<ID>)
#' }
#'
#' @references
#' \url{https://docs.solvebio.com/}
#'
#' @export
DatasetTemplate.delete <- function(id, env = solvebio:::.solveEnv) {
    if (missing(id)) {
        stop("A dataset template ID is required.")
    }

    path <- paste("v2/dataset_templates", paste(id), sep="/")
    .request('DELETE', path=path, env=env)
}


#' DatasetTemplate.create
#'
#' Create a SolveBio dataset template.
#' @param env (optional) Custom client environment.
#' @param ... (optional) Dataset template attributes.
#'
#' @examples \dontrun{
#' DatasetTemplate.create(name="My Dataset Template")
#' }
#'
#' @references
#' \url{https://docs.solvebio.com/}
#'
#' @export
DatasetTemplate.create <- function(env = solvebio:::.solveEnv, ...) {
    .request('POST', path='v2/dataset_templates', query=NULL, body=list(...), env=env)
}


#' DatasetTemplate.update
#'
#' Updates the attributes of an existing dataset template.
#'
#' @param id The ID of the dataset template to update.
#' @param env (optional) Custom client environment.
#' @param ... Dataset template attributes to change.
#'
#' @examples \dontrun{
#' DatasetTemplate.update(
#'                id="1234",
#'                name="New Template Name",
#'               )
#' }
#'
#' @references
#' \url{https://docs.solvebio.com/}
#'
#' @export
DatasetTemplate.update <- function(id, env = solvebio:::.solveEnv, ...) {
    if (missing(id)) {
        stop("A dataset template ID is required.")
    }

    path <- paste("v2/dataset_templates", paste(id), sep="/")
    .request('PATCH', path=path, query=NULL, body=list(...), env=env)
}