R/182_reductions_complex2real_canonicalizers_constant_canon.R

In CVXR: Disciplined Convex Optimization

#####
## DO NOT EDIT THIS FILE!! EDIT THE SOURCE INSTEAD: rsrc_tree/reductions/complex2real/canonicalizers/constant_canon.R
#####

## CVXPY SOURCE: reductions/complex2real/canonicalizers/constant_canon.py
## Canonicalize complex constants -> real/imag Constant pairs

c2r_constant_canon <- function(expr, real_args, imag_args, real2imag) {
  val <- expr@.value
  if (is_real(expr)) {
    ## Re() fails on sparse Matrix objects (no complex sparse in R).
    ## Real values don't need Re() -- return as-is.
    if (!is.complex(val)) return(list(expr, NULL))
    return(list(Constant(Re(val)), NULL))
  } else if (is_imag(expr)) {
    return(list(NULL, Constant(Im(val))))
  } else {
    return(list(Constant(Re(val)), Constant(Im(val))))
  }
}