R/012_lin_ops_LinOpVector.R

In CVXR: Disciplined Convex Optimization

#####
## DO NOT EDIT THIS FILE!! EDIT THE SOURCE INSTEAD: rsrc_tree/lin_ops/LinOpVector.R
#####

## R-SPECIFIC: LinOpVector closure-based wrapper over C++ external pointers
## LinOpVector class shadowing CPP class
CVXcanon.LinOpVector <- function() {
  linOps <- list()
  ptr <- .Call("_CVXR_LinOpVector__new", PACKAGE = "CVXR")
  getXPtr <- function() ptr
  getList <- function() linOps
  push_back <- function(linop_ptr) {
    n <- length(linOps)
    linOps[[n + 1L]] <- linop_ptr          ## R-side keep-alive for GC
    .Call("_CVXR_LinOpVector__push_back", ptr, linop_ptr, PACKAGE = "CVXR")
  }
  list(getXPtr = getXPtr,
       getList = getList,
       push_back = push_back)
}