R/workflow_service.R

In tercen/teRcenApi: Tercen R api

#' WorkflowService
#'
#' @export
#' @format \code{\link{R6Class}} object.
#' @section Methods:
#' \describe{
#'    \item{\code{getCubeQuery(workflowId,stepId)}}{method}
#'    \item{\code{copyApp(workflowId,projectId)}}{method}
#' }
#' 
WorkflowService <- R6::R6Class("WorkflowService", inherit = HttpClientService, public = list(initialize = function(baseRestUri,
    client) {
    super$initialize(baseRestUri, client)
    self$uri = "api/v1/workflow"
}, getCubeQuery = function(workflowId, stepId) {
    answer = NULL
    response = NULL
    uri = paste0("api/v1/workflow", "/", "getCubeQuery")
    params = list()
    params[["workflowId"]] = unbox(workflowId)
    params[["stepId"]] = unbox(stepId)
    url = self$getServiceUri(uri)
    response = self$client$post(url, body = params)
    if (response$status != 200) {
        self$onResponseError(response, "getCubeQuery")
    } else {
        answer = createObjectFromJson(response$content)
    }
    return(answer)
}, copyApp = function(workflowId, projectId) {
    answer = NULL
    response = NULL
    uri = paste0("api/v1/workflow", "/", "copyApp")
    params = list()
    params[["workflowId"]] = unbox(workflowId)
    params[["projectId"]] = unbox(projectId)
    url = self$getServiceUri(uri)
    response = self$client$post(url, body = params)
    if (response$status != 200) {
        self$onResponseError(response, "copyApp")
    } else {
        answer = createObjectFromJson(response$content)
    }
    return(answer)
}))