R/dev/parent_frames_in_s4.r

In rappster/reactr: Reactive object bindings with built-in caching and push functionality

setGeneric(
  name = "foo",
  signature = c(
    "input"
  ),
  def = function(
    input = NULL,
    id = character(),
    value = NULL,
    where = parent.frame(), ## TODO: verify this!!!
    ...
  ) {
    standardGeneric("foo")       
  }
)
setMethod(
  f = "foo", 
  signature = signature(
    input = "missing"
  ), 
  definition = function(
    input,
    value,
    where,
    ...
  ) {
  
  print(ls(where))
    
  }
)
foo()