fix list_action_options

eblondel · eblondel · commit 0a38c312ef69 · 2020-11-04T17:14:55.000+01:00
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)

Original file line number	Diff line number	Diff line change
`@@ -383,7 +383,7 @@ list_action_options <- function(id){`
`383`	`383`	`out <- data.frame(`
`384`	`384`	`name = names(action$options),`
`385`	`385`	`definition = sapply(action$options, function(x){x$desc}),`
`386`		`- default = sapply(action$options, function(x){x$default}),`
	`386`	`+ default = paste0(sapply(action$options, function(x){x$default}), collapse=","),`
`387`	`387`	`stringsAsFactors = FALSE`
`388`	`388`	`)`
`389`	`389`	`row.names(out) <- 1:nrow(out)`