feat: allow features of type logical

Author: jemus42

NEWS.md

@@ -1,5 +1,6 @@
 # randomPlantedForest 0.2.1.9000 (Development version)
 
+* Allow features of type `logical`, which are now converted via `as.integer`.
 * The `parallel = TRUE|FALSE` argument in `rpf()` has been substituted by an `nthreads = 1L` argument, allowing for more flexible parallelization.
   The previous behavior only allowed for either no parallelization or using n-1 of n available cores. 
   The new implementation should be reasonably robust and the default behavior remains serial execution.

R/utils.R

@@ -80,6 +80,12 @@ pca_order <- function(x, y) {
 preprocess_predictors_fit <- function(processed) {
   predictors <- as.data.table(processed$predictors)
 
+  # Convert logicals to binary integers
+  logical_cols <- names(which(sapply(predictors, is.logical)))
+  if (length(logical_cols) > 0) {
+    predictors[, (logical_cols) := lapply(.SD, as.integer), .SDcols = logical_cols]
+  }
+
   # Convert characters to factors
   char_cols <- names(which(sapply(predictors, is.character)))
   if (length(char_cols) > 0) {
@@ -114,6 +120,12 @@ preprocess_predictors_fit <- function(processed) {
 preprocess_predictors_predict <- function(object, predictors) {
   predictors <- as.data.table(predictors)
 
+  # Convert logicals to binary integers
+  logical_cols <- names(which(sapply(predictors, is.logical)))
+  if (length(logical_cols) > 0) {
+    predictors[, (logical_cols) := lapply(.SD, as.integer), .SDcols = logical_cols]
+  }
+
   # Convert characters to factors
   char_cols <- names(which(sapply(predictors, is.character)))
   if (length(char_cols) > 0) {
@@ -152,7 +164,7 @@ preprocess_outcome <- function(processed, loss) {
 
   if (is_binary & is_integerish) {
     warning(paste(
-      "y is binary integer, assuming regression task.",
+      "y is a binary integer, assuming regression task.",
       "Recode y to a factor for classification."
     ))
   }