In f0nzie/rNodal: Oil and Gas Well Nodal Analysis for Production Petroleum Engineering

d = 10   # `d` doesn't pass as part of the environment

tempf <- function(a, b = 2, ...) {
    argg <- c(as.list(environment()), list(...))
    print(argg)
}

tempf(1, c = 3)

removing one of the parameters

d = 10

tempf <- function(a, b = 2, ...) {
    argg <- c(as.list(environment()), list(...))
    argg$a <- NULL   # remove parameter a
    print(argg)
}

tempf(1, c = 3)

library(rNodal)

Z <- function(correlation, pres.a, temp.f, gas.sg,
              n2.frac = 0, co2.frac = 0, h2s.frac = 0, ...) {
    if (correlation == "HY" || correlation == 1) {
        arggs <- c(as.list(environment()), list(...))

        arggs$correlation <- NULL
        return(do.call(z.hallyarborough, arggs)$z)
    }
}

Z(correlation = "HY", pres.a = pres, temp.f = temp, gas.sg)
Z(correlation = 1, pres.a = pres, temp.f = temp, gas.sg)

f0nzie/rNodal documentation built on May 6, 2019, 10:14 a.m.