Skip to contents

R-check

func - tools for function development

Installation

# install.packages("pak")
pak::pak("sckott/func")

usage

  • func_load(): load default parameter values for a function or vector/list of functions
mars <- function() 5
venus <- function(z = mars(), m = list(goo = "bar"), v = function(e) e) {
  list(z, z, v)
}
mars()
#> [1] 5
venus()
#> [[1]]
#> [1] 5
#> 
#> [[2]]
#> [1] 5
#> 
#> [[3]]
#> function (e) 
#> e
#> <environment: 0x12d80ddb8>
z
#> Error: object 'z' not found
m
#> Error: object 'm' not found
v
#> Error: object 'v' not found
func_load(venus)
class(z); z
#> [1] "numeric"
#> [1] 5
class(m); m
#> [1] "list"
#> $goo
#> [1] "bar"
class(v); v
#> [1] "function"
#> function (e) 
#> e
#> <environment: 0x12d95ce78>
tmpf <- tempfile(fileext=".R")
cat("myfunc <- function() 2\nfun <- function(bar = 5, zzz = myfunc()) bar + 1\n", file=tmpf)
func_load_path(path=tmpf)
bar
#> [1] 5
zzz
#> [1] 2

Meta