could not find function "is.transformation"

[peterhurford]

In /Users/peterhurford/.R/.syberia/engines/github/robertzk/modeling.sy/master/lib/shared/lexicals.R:25: if (deparse(substitute(x))[[1]] == '{') {
      fn <- function(x) {}
      body(fn) <- substitute(x)
      column_transf [...]

Error:
  could not find function "is.transformation"

[peterhurford]

This goes away when robertzk/mungebits is added to the lockfile.

[peterhurford]

Here's a fuller trace:

> run("imsurvey", to = "analyze/confidence x confidence (raw)")
Loading model: models/dev/imsurvey2015
Beginning 1. import stage...
  Running 1. Import from file...
  Running 2. (Internal) Verify data was loaded...
Ending 1. import stage...
Beginning 2. data stage...
  Running 1. Drop insincere...
  Running 2. Drop non-EA...
  Running 3. Drop time vars...
Error in !grepl(".time", names(df), fixed = TRUE) :
  could not find function "is.transformation"
In addition: Warning messages:
1: Row dropping detected. Diff may not be accurate.
2: Row dropping detected. Diff may not be accurate.
In environment imports:Ramd: run("imsurvey", to = "analyze/confidence x confidence (raw)")
In /Users/peterhurford/.R/.syberia/engines/github/robertzk/modeling.sy/master/config/global/modeling/run_model.R:27: invisible(director$cache_set("last_run",
    director$resource(keys[1])$run(..., verbose = verbose))[[1L]])
In package director: self$cache$set(k, v)
In package base: structure(list(value), .Names = key)
In package stagerunner: director$resource(keys[1])$run(..., verbose = verbose)
In package stagerunner: run_stage(..., remember_flag = remember_flag)
In package stagerunner: stage$run(verbose = verbose, .depth = .depth + 1, ...)
In package stagerunner: run_stage(..., remember_flag = remember_flag)
In package stagerunner: stage$run(...)
In <environment: 0x7fdb701f0830>: .callable(self$.context, ...)
In package mungebits2: piece$run(env)
In package base: do.call(self$.mungebit$run, args, envir = calling_environment)
In package mungebits2: (function (data, ...)  {     if (is.environment(data)) {         if (!exists("data", envir = data, inherits = FALSE)) {  [...]
In package base: Recall(data$data, ...)
In package mungebits2: (function (data, ...)  {     if (is.environment(data)) {         if (!exists("data", envir = data, inherits = FALSE)) {  [...]
In package mungebits2: self$train(data, ...)
In <environment: 0x7fdb707cdae8>: self$.train_function(data, ...)
In /Users/peterhurford/dev/ea-data/models/dev/imsurvey2015/imsurvey2015.R:6: df[!grepl(".time", names(df), fixed = TRUE)]
In /Users/peterhurford/dev/ea-data/models/dev/imsurvey2015/imsurvey2015.R:6: df[!grepl(".time", names(df), fixed = TRUE)]
In <environment: 0x7fdb707cdae8>: !grepl(".time", names(df), fixed = TRUE)
In /Users/peterhurford/.R/.syberia/engines/github/robertzk/modeling.sy/master/lib/shared/lexicals.R:25: if (deparse(substitute(x))[[1]] == '{') {
      fn <- function(x) {}
      body(fn) <- substitute(x)
      column_transf [...]

Error:
  could not find function "is.transformation"

[robertzk]

@peterhurford Are you still having this issue? is.transformation looks exported to me.

[peterhurford]

Nope, this issue is gone now.