From 3c6736035b687636a6af9d97ddd10367a41b810d Mon Sep 17 00:00:00 2001 From: rmflight Date: Wed, 23 Dec 2020 14:22:37 -0500 Subject: [PATCH] making the default method with no parameters supplied be a single type so the switch statement work properly --- R/keypoints.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/keypoints.R b/R/keypoints.R index e910615..eb948e6 100644 --- a/R/keypoints.R +++ b/R/keypoints.R @@ -49,7 +49,7 @@ ocv_keypoints_options <- function(method = c("FAST", "Harris"), ...){ method <- match.arg(method) ldots <- list(...) if(method == "FAST"){ - params <- list(threshold = 0, nonmaxSuppression = TRUE, type = c("TYPE_9_16", "TYPE_7_12", "TYPE_5_8")) + params <- list(threshold = 0, nonmaxSuppression = TRUE, type = "TYPE_5_8") }else if(method == "Harris"){ params <- list(numOctaves = 6, corn_thresh = 0.01, DOG_thresh = 0.01, maxCorners = 5000, num_layers = 4) }