missing control #402

r-geoflow · Jan 13, 2025 · 1060e8d · 1060e8d
1 parent ab2d1c2
commit 1060e8d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/geoflow_action.R b/R/geoflow_action.R
@@ -162,7 +162,7 @@ geoflow_action <- R6Class("geoflow_action",
           if(length(opt$default)>1){
             opt$default = unlist(opt$default)
           }else{
-            opt$default = switch(opt$default,
+            opt$default = switch(as.character(opt$default),
               "NA" = NA,
               "Inf" = Inf,
               as(opt$default, opt$class)