R/scalar_vector_conversion.R

In Non-Contradiction/autodiffr: Automatic Differentiation in R through 'Julia'

scalar2vector <- function(x){
    if (is.list(x)) {
        lapply(x, scalar2vector)
    }
    else {
        if (length(x) > 1) {
            as.numeric(x)
        }
        else {
            JuliaCall::julia_call("vcat", as.numeric(x), need_return = "Julia")
        }
    }
}

vector2scalar <- function(x){
    if (length(x) == 1) x[1]
    else x
}