From d9d84a72082f556a78997130e66f8bfe38883ef7 Mon Sep 17 00:00:00 2001
From: eblondel <emmanuel.blondel1@gmail.com>
Date: Mon, 13 Jan 2025 10:26:03 +0100
Subject: [PATCH] missing control #403

---
 R/geoflow_handler.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/geoflow_handler.R b/R/geoflow_handler.R
index 378c375..06e4d83 100644
--- a/R/geoflow_handler.R
+++ b/R/geoflow_handler.R
@@ -124,7 +124,7 @@ geoflow_handler <- R6Class("geoflow_handler",
           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)