f <- function(x)  {

  ret <- list()


  ret$subst._ <- substitute(x)

  ret$deparse.subst._ <- deparse(substitute(x))

  ret$names._ <- names(x) 

  return (ret)
}



t1 <- list("hello"=c(1,2,3))
t1

t2 <- c(h=1, j=2, d=3)
t2

f(t1) -> a
f(t2)

# NOTE ON SUBSTITUTE:   YOU CAN EVALUATE IT DOWNSTREAM
eval( f(t1)[["subst.x"]] )   # returns the value of t1


a
do.call(cbind, a, )
a[[1]]

cbind(a[[1]])
a[[1]]


try

lapply(Individual)

P1 = myd[Individual]==myd[p1]