get_code of DatasetConnector object does not include codes that generated Dataset objects

[cicdguy]

to reproduce:

# devtools::load_all()
library(random.cdisc.data)
library(MultiAssayExperiment)
ADSL <- radsl(cached = TRUE)
ADSL_dataset <- dataset(dataname = "ADSL", x = ADSL)

pull_fun2 <- callable_function(data.frame)
pull_fun2$set_args(args = list(a = c(1,2,3)))
dataset_connector("test", pull_fun2) -> t

ADSL3 <- list(DTHDT=20:100)
mutate_dataset(t, code = "test$new_var = ADSL$DTHDT[41];", vars = list(ADSL = ADSL_dataset))
mutate_dataset(t, code = "test$new_var = ADSL3$DTHDT[41];", vars = list(ADSL3 = ADSL3))

load_dataset(t)
styler::style_text(t$get_code())

The code that generated ADSL3 is captured and printed. But the code that generated ADSL is not. ADSL is a Dataset object. What is the reason in not printing the code that generates the Dataset object?

Provenance:

Creator: junlue

[gogonzo]

Not relevant anymore. Full implementation of teal_data already on main