Release Candidate 0.5.1

NAMESPACE

@@ -1,6 +1,11 @@
 # Generated by roxygen2: do not edit by hand
 
 S3method(augment,orbital_class)
+S3method(estimate_adj_chars,default)
+S3method(estimate_adj_chars,equivocal_zone)
+S3method(estimate_adj_chars,numeric_range)
+S3method(estimate_adj_chars,predictions_custom)
+S3method(estimate_adj_chars,probability_threshold)
 S3method(estimate_orbital_size,catboost.Model)
 S3method(estimate_orbital_size,constparty)
 S3method(estimate_orbital_size,default)
@@ -16,6 +21,35 @@ S3method(estimate_orbital_size,rpart)
 S3method(estimate_orbital_size,tailor)
 S3method(estimate_orbital_size,workflow)
 S3method(estimate_orbital_size,xgb.Booster)
+S3method(estimate_step_chars,default)
+S3method(estimate_step_chars,step_adasyn)
+S3method(estimate_step_chars,step_bsmote)
+S3method(estimate_step_chars,step_center)
+S3method(estimate_step_chars,step_corr)
+S3method(estimate_step_chars,step_downsample)
+S3method(estimate_step_chars,step_dummy)
+S3method(estimate_step_chars,step_filter_missing)
+S3method(estimate_step_chars,step_impute_mean)
+S3method(estimate_step_chars,step_impute_median)
+S3method(estimate_step_chars,step_indicate_na)
+S3method(estimate_step_chars,step_lincomb)
+S3method(estimate_step_chars,step_log)
+S3method(estimate_step_chars,step_mutate)
+S3method(estimate_step_chars,step_nearmiss)
+S3method(estimate_step_chars,step_normalize)
+S3method(estimate_step_chars,step_nzv)
+S3method(estimate_step_chars,step_pca)
+S3method(estimate_step_chars,step_range)
+S3method(estimate_step_chars,step_rm)
+S3method(estimate_step_chars,step_rose)
+S3method(estimate_step_chars,step_scale)
+S3method(estimate_step_chars,step_select)
+S3method(estimate_step_chars,step_smote)
+S3method(estimate_step_chars,step_smotenc)
+S3method(estimate_step_chars,step_sqrt)
+S3method(estimate_step_chars,step_tomek)
+S3method(estimate_step_chars,step_upsample)
+S3method(estimate_step_chars,step_zv)
 S3method(orbital,catboost.Model)
 S3method(orbital,constparty)
 S3method(orbital,default)

NEWS.md

@@ -1,6 +1,11 @@
 # orbital (development version)
+
+## Improvements
+
 * `estimate_orbital_size()` is a new function that quickly estimates the character count of the orbital expression for a model without generating it. (#144)
 
+## Bug fixes
+
 * `step_dummy()` and `step_indicate_na()` now generate SQL compatible with Snowflake and other databases that don't support casting booleans directly to numeric types. (#145)
 
 # orbital 0.5.0

R/adjust_equivocal_zone.R

@@ -33,6 +33,7 @@ orbital.equivocal_zone <- function(x, tailor, type, prefix, ...) {
 }
 
 # dplyr::case_when with 3 branches and arithmetic ~= 120 chars
+#' @exportS3Method
 estimate_adj_chars.equivocal_zone <- function(x, ...) {
   120L
 }

R/adjust_numeric_range.R

@@ -28,6 +28,7 @@ orbital.numeric_range <- function(x, tailor, ...) {
 }
 
 # dplyr::case_when with 2-3 branches ~= 80 chars
+#' @exportS3Method
 estimate_adj_chars.numeric_range <- function(x, ...) {
   lower <- x$arguments$lower_limit
   upper <- x$arguments$upper_limit

R/adjust_predictions_custom.R

@@ -11,6 +11,7 @@ orbital.predictions_custom <- function(x, ...) {
 }
 
 # Estimate based on number of expressions, ~50 chars each
+#' @exportS3Method
 estimate_adj_chars.predictions_custom <- function(x, ...) {
   n_exprs <- length(x$arguments$commands)
   if (n_exprs == 0) {

R/adjust_probability_threshold.R

@@ -32,6 +32,7 @@ orbital.probability_threshold <- function(x, tailor, type, prefix, ...) {
 }
 
 # dplyr::case_when with 3 branches ~= 100 chars
+#' @exportS3Method
 estimate_adj_chars.probability_threshold <- function(x, ...) {
   100L
 }

R/estimate-size.R

@@ -420,6 +420,7 @@ estimate_step_chars <- function(x, ...) {
 
 # Default: estimate based on number of columns affected
 # Most steps produce ~40 chars per column as a rough baseline
+#' @exportS3Method
 estimate_step_chars.default <- function(x, ...) {
   n_cols <- length(x$columns %||% 0L)
   as.integer(n_cols * 40)
@@ -433,6 +434,7 @@ estimate_adj_chars <- function(x, ...) {
 }
 
 # Default: most adjustments produce ~80 chars for a case_when expression
+#' @exportS3Method
 estimate_adj_chars.default <- function(x, ...) {
   80L
 }

R/step_adasyn.R

@@ -6,6 +6,7 @@ orbital.step_adasyn <- function(x, all_vars, ...) {
   )
 }
 
+#' @exportS3Method
 estimate_step_chars.step_adasyn <- function(x, ...) {
   0L
 }

R/step_bsmote.R

@@ -6,6 +6,7 @@ orbital.step_bsmote <- function(x, all_vars, ...) {
   )
 }
 
+#' @exportS3Method
 estimate_step_chars.step_bsmote <- function(x, ...) {
   0L
 }

R/step_center.R

@@ -14,6 +14,7 @@ orbital.step_center <- function(x, all_vars, ...) {
   out
 }
 
+#' @exportS3Method
 estimate_step_chars.step_center <- function(x, ...) {
   n_cols <- length(x$means)
   if (n_cols == 0) {

R/step_corr.R

@@ -3,6 +3,7 @@ orbital.step_corr <- function(x, all_vars, ...) {
   NULL
 }
 
+#' @exportS3Method
 estimate_step_chars.step_corr <- function(x, ...) {
   0L
 }

R/step_downsample.R

@@ -6,6 +6,7 @@ orbital.step_downsample <- function(x, all_vars, ...) {
   )
 }
 
+#' @exportS3Method
 estimate_step_chars.step_downsample <- function(x, ...) {
   0L
 }

R/step_dummy.R

@@ -18,6 +18,7 @@ orbital.step_dummy <- function(x, all_vars, ...) {
   out
 }
 
+#' @exportS3Method
 estimate_step_chars.step_dummy <- function(x, ...) {
   total <- 0L
   for (var in names(x$levels)) {

R/step_filter_missing.R

@@ -3,6 +3,7 @@ orbital.step_filter_missing <- function(x, all_vars, ...) {
   NULL
 }
 
+#' @exportS3Method
 estimate_step_chars.step_filter_missing <- function(x, ...) {
   0L
 }

R/step_impute_mean.R

@@ -16,6 +16,7 @@ orbital.step_impute_mean <- function(x, all_vars, ...) {
   out
 }
 
+#' @exportS3Method
 estimate_step_chars.step_impute_mean <- function(x, ...) {
   n_cols <- length(x$means)
   if (n_cols == 0) {

R/step_impute_median.R

@@ -16,6 +16,7 @@ orbital.step_impute_median <- function(x, all_vars, ...) {
   out
 }
 
+#' @exportS3Method
 estimate_step_chars.step_impute_median <- function(x, ...) {
   n_cols <- length(x$medians)
   if (n_cols == 0) {

R/step_indicate_na.R

@@ -17,6 +17,7 @@ orbital.step_indicate_na <- function(x, all_vars, ...) {
   out
 }
 
+#' @exportS3Method
 estimate_step_chars.step_indicate_na <- function(x, ...) {
   n_cols <- length(x$columns)
   if (n_cols == 0) {

R/step_lincomb.R

@@ -3,6 +3,7 @@ orbital.step_lincomb <- function(x, all_vars, ...) {
   NULL
 }
 
+#' @exportS3Method
 estimate_step_chars.step_lincomb <- function(x, ...) {
   0L
 }

R/step_log.R

@@ -23,6 +23,7 @@ orbital.step_log <- function(x, all_vars, ...) {
   out
 }
 
+#' @exportS3Method
 estimate_step_chars.step_log <- function(x, ...) {
   n_cols <- length(x$columns)
   if (n_cols == 0) {

R/step_mutate.R

@@ -9,6 +9,7 @@ orbital.step_mutate <- function(x, all_vars, ...) {
   out
 }
 
+#' @exportS3Method
 estimate_step_chars.step_mutate <- function(x, ...) {
   n_exprs <- length(x$inputs)
   as.integer(n_exprs * 50)

R/step_nearmiss.R

@@ -6,6 +6,7 @@ orbital.step_nearmiss <- function(x, all_vars, ...) {
   )
 }
 
+#' @exportS3Method
 estimate_step_chars.step_nearmiss <- function(x, ...) {
   0L
 }

R/step_normalize.R

@@ -19,6 +19,7 @@ orbital.step_normalize <- function(x, all_vars, ...) {
   out
 }
 
+#' @exportS3Method
 estimate_step_chars.step_normalize <- function(x, ...) {
   n_cols <- length(x$means)
   if (n_cols == 0) {

R/step_nzv.R

@@ -3,6 +3,7 @@ orbital.step_nzv <- function(x, all_vars, ...) {
   NULL
 }
 
+#' @exportS3Method
 estimate_step_chars.step_nzv <- function(x, ...) {
   0L
 }

R/step_pca.R

@@ -5,6 +5,7 @@ orbital.step_pca <- function(x, all_vars, ...) {
   out
 }
 
+#' @exportS3Method
 estimate_step_chars.step_pca <- function(x, ...) {
   rot <- x$res$rotation
   n_components <- ncol(rot)

R/step_range.R

@@ -31,6 +31,7 @@ orbital.step_range <- function(x, all_vars, ...) {
   out
 }
 
+#' @exportS3Method
 estimate_step_chars.step_range <- function(x, ...) {
   n_cols <- ncol(x$ranges)
   if (n_cols == 0) {

R/step_rm.R

@@ -3,6 +3,7 @@ orbital.step_rm <- function(x, all_vars, ...) {
   NULL
 }
 
+#' @exportS3Method
 estimate_step_chars.step_rm <- function(x, ...) {
   0L
 }

R/step_rose.R

@@ -6,6 +6,7 @@ orbital.step_rose <- function(x, all_vars, ...) {
   )
 }
 
+#' @exportS3Method
 estimate_step_chars.step_rose <- function(x, ...) {
   0L
 }

R/step_scale.R

@@ -14,6 +14,7 @@ orbital.step_scale <- function(x, all_vars, ...) {
   out
 }
 
+#' @exportS3Method
 estimate_step_chars.step_scale <- function(x, ...) {
   n_cols <- length(x$sds)
   if (n_cols == 0) {

R/step_select.R

@@ -3,6 +3,7 @@ orbital.step_select <- function(x, all_vars, ...) {
   NULL
 }
 
+#' @exportS3Method
 estimate_step_chars.step_select <- function(x, ...) {
   0L
 }

R/step_smote.R

@@ -6,6 +6,7 @@ orbital.step_smote <- function(x, all_vars, ...) {
   )
 }
 
+#' @exportS3Method
 estimate_step_chars.step_smote <- function(x, ...) {
   0L
 }

R/step_smotenc.R

@@ -6,6 +6,7 @@ orbital.step_smotenc <- function(x, all_vars, ...) {
   )
 }
 
+#' @exportS3Method
 estimate_step_chars.step_smotenc <- function(x, ...) {
   0L
 }

R/step_sqrt.R

@@ -14,6 +14,7 @@ orbital.step_sqrt <- function(x, all_vars, ...) {
   out
 }
 
+#' @exportS3Method
 estimate_step_chars.step_sqrt <- function(x, ...) {
   n_cols <- length(x$columns)
   if (n_cols == 0) {

R/step_tomek.R

@@ -6,6 +6,7 @@ orbital.step_tomek <- function(x, all_vars, ...) {
   )
 }
 
+#' @exportS3Method
 estimate_step_chars.step_tomek <- function(x, ...) {
   0L
 }

R/step_upsample.R

@@ -6,6 +6,7 @@ orbital.step_upsample <- function(x, all_vars, ...) {
   )
 }
 
+#' @exportS3Method
 estimate_step_chars.step_upsample <- function(x, ...) {
   0L
 }

R/step_zv.R

@@ -3,6 +3,7 @@ orbital.step_zv <- function(x, all_vars, ...) {
   NULL
 }
 
+#' @exportS3Method
 estimate_step_chars.step_zv <- function(x, ...) {
   0L
 }