summ(scale=TRUE) breaks when transformation applied to outcome variable

[fredcallaway]

Potentially two bugs here (but likely related).

data <- data.frame(rt = exp(rnorm(10)), x=runif(10))
m <- lm(log(rt) ~ x, data=data)
summ(m)  # OK
summ(m, scale=TRUE)  # Error in log(rt) : non-numeric argument to mathematical function

m <- lm(x == 1 ~ rt, data=data)
summ(m)  # OK
summ(m, scale=TRUE)  # Error in eval(predvars, data, env) : object 'x' not found  

[fredcallaway]

Much thanks!