ssdms: fix ssdm methods

Author: elgabbas

inst/fda2.R

@@ -13,6 +13,7 @@ methodInfo <- list(
   fitParams = list(formula = "standard.formula", data = "sdmDataFrame"),
   fitSettings = list(method = substitute(polyreg), keep.fitted = FALSE),
   fitFunction = function(formula, data, ...) {
+    formula <- as.formula(deparse(formula), env = environment())
     resp <- all.vars(formula)[1]
     data[, resp] <- factor(data[, resp], levels = c(0L, 1L))
     mda::fda(formula = formula, data = data, ...)

inst/mda2.R

@@ -12,6 +12,7 @@ methodInfo <- list(
   fitParams = list(formula = "standard.formula", data = "sdmDataFrame"),
   fitSettings = list(method = substitute(polyreg), keep.fitted = FALSE),
   fitFunction = function(formula, data, ...) {
+    formula <- as.formula(deparse(formula), env = environment())
     resp <- all.vars(formula)[1]
     data[, resp] <- factor(data[, resp], levels = c(0L, 1L))
     mda::mda(formula = formula, data = data, ...)

inst/ranger2.R

@@ -12,8 +12,8 @@ methodInfo <- list(
   fitSettings = list(
     num.trees = 1000, mtry = NULL, importance = "none", probability = TRUE,
     quantreg = FALSE, keep.inbag = FALSE, num.threads = 1, verbose = FALSE),
-
   fitFunction = function(formula, data, ...) {
+    formula <- as.formula(deparse(formula), env = environment())
     resp <- all.vars(formula)[1]
     data[, resp] <- factor(data[, resp], levels = c(0L, 1L))
     ranger::ranger(formula = formula, data = data, ...)

inst/rf2.R

@@ -14,6 +14,7 @@ methodInfo <- list(
   fitParams = list(formula = "standard.formula", data = "sdmDataFrame"),
   fitSettings = list(ntree = 1000, replace = TRUE, importance = TRUE),
   fitFunction = function(formula, data, ...) {
+    formula <- as.formula(deparse(formula), env = environment())
     resp <- all.vars(formula)[1]
     data[, resp] <- factor(data[, resp], levels = c(0L, 1L))
     randomForest::randomForest(formula = formula, data = data, ...)