#103 - fix step_log_interval offset issue

Author: mdancho84

R/recipes-step_log_interval.R

@@ -152,6 +152,8 @@ prep.step_log_interval <- function(x, training, info = NULL, ...) {
     limit_lower_trained <- training[, col_names] %>%
         purrr::map(.f = function(vals) {
 
+            vals <- vals + x$offset
+
             max_x   <- max(vals)
             min_x   <- min(vals)
             range_x <- abs(max_x - min_x)
@@ -162,6 +164,8 @@ prep.step_log_interval <- function(x, training, info = NULL, ...) {
     limit_upper_trained <- training[, col_names] %>%
         purrr::map(.f = function(vals) {
 
+            vals <- vals + x$offset
+
             max_x   <- max(vals)
             min_x   <- min(vals)
             range_x <- abs(max_x - min_x)
@@ -194,6 +198,9 @@ bake.step_log_interval <- function(object, new_data, ...) {
 
     for (i in seq_along(object$limit_lower_trained)) {
 
+        print(object$limit_lower_trained[i])
+        print(object$limit_upper_trained[i])
+
         new_data[, param[i]] <- log_interval_vec(
             x           = new_data %>% purrr::pluck(param[i]),
             limit_lower = as.numeric(object$limit_lower_trained[i]),