djnavarro · November 26, 2022 01:27
diff --git a/active_binding_function.R b/active_binding_function.R
 # simple R6 class
 Random <- R6::R6Class("Random",
  active = list(draw = function() runif(1))
 )

 # instantiate the class
 rnd <- Random$new()

 # this calls the function
 val <- rnd$draw

 # this returns the function
 fun <- activeBindingFunction("draw", rnd)
	# simple R6 class
	Random <- R6::R6Class("Random",
	active = list(draw = function() runif(1))
	)

	# instantiate the class
	rnd <- Random$new()

	# this calls the function
	val <- rnd$draw

	# this returns the function
	fun <- activeBindingFunction("draw", rnd)