fix list_action_options

r-geoflow · Nov 4, 2020 · 0a38c31 · 0a38c31
1 parent da2dce2
commit 0a38c31
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/geoflow_action.R b/R/geoflow_action.R
@@ -383,7 +383,7 @@ list_action_options <- function(id){
     out <- data.frame(
       name = names(action$options),
       definition = sapply(action$options, function(x){x$desc}),
-      default = sapply(action$options, function(x){x$default}),
+      default = paste0(sapply(action$options, function(x){x$default}), collapse=","),
       stringsAsFactors = FALSE
     )
     row.names(out) <- 1:nrow(out)