diff --git a/DESCRIPTION b/DESCRIPTION
index 2404bf1..6b079cf 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -17,6 +17,6 @@ Description: Procedures to fit species distributions models from occurrence reco
 License: MIT + file LICENSE
 URL: https://github.com/mrmaxent/maxnet
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.1
+RoxygenNote: 7.2.3
 LazyData: true
 Encoding: UTF-8
diff --git a/R/predict.maxnet.R b/R/predict.maxnet.R
index 470b337..7b800c2 100644
--- a/R/predict.maxnet.R
+++ b/R/predict.maxnet.R
@@ -31,19 +31,18 @@ predict.maxnet <-
       if (!requireNamespace("stars", quietly = TRUE)) {
         stop("package stars required, please install it first")
       }
-      newdataframe <- as.data.frame(newdata)[, -c(1,2)]
+      newdataframe <- as.data.frame(newdata)[, -c(1,2), drop = FALSE]
     }
     if (is_spatraster <- inherits(newdata, "SpatRaster")) {
       if (!requireNamespace("terra", quietly = TRUE)) {
         stop("package terra required, please install it first")
       }
-      newdataframe <- as.data.frame(newdata, na.rm = FALSE)
+      newdataframe <- as.data.frame(newdata, na.rm = FALSE, drop = FALSE)
     }
-    
-    
+
     if (clamp) {
       for (v in intersect(names(object$varmax), names(newdataframe))) {
-        newdataframe[,v] <- pmin(pmax(newdataframe[,v], object$varmin[v]), object$varmax[v])
+        newdataframe[,v] <- pmin(pmax(newdataframe[,v, drop = TRUE], object$varmin[v]), object$varmax[v])
       }
     }
     terms <- sub("hinge\\((.*)\\):(.*):(.*)$", "hingeval(\\1,\\2,\\3)", names(object$betas))