@@ -70,6 +70,10 @@ geoflow_action <- R6Class("geoflow_action",
70
70
options = list (),
71
71
# '@field available_options a list of available options for the actions
72
72
available_options = list (),
73
+ # '@field status status
74
+ status = " stable" ,
75
+ # '@field notes notes
76
+ notes = " " ,
73
77
74
78
# '@description Initialize a \link{geoflow_action}
75
79
# '@param yaml a yaml file
@@ -90,6 +94,8 @@ geoflow_action <- R6Class("geoflow_action",
90
94
# '@param script action script
91
95
# '@param options action options
92
96
# '@param available_options available options for the action
97
+ # '@param status status of the action (experimental, stable, deprecated, superseded)
98
+ # '@param notes notes
93
99
initialize = function (yaml = NULL ,
94
100
id = NULL ,
95
101
funders = list (), authors = list (), maintainer = NULL ,
@@ -99,7 +105,8 @@ geoflow_action <- R6Class("geoflow_action",
99
105
pid_generator = NULL , pid_types = list (),
100
106
generic_uploader = FALSE ,
101
107
fun = NULL , script = NULL , options = list (),
102
- available_options = list ()){
108
+ available_options = list (),
109
+ status = " stable" , notes = " " ){
103
110
104
111
if (! is.null(yaml )){
105
112
self $ fromYAML(yaml )
@@ -125,6 +132,8 @@ geoflow_action <- R6Class("geoflow_action",
125
132
self $ script <- script
126
133
self $ options <- options
127
134
self $ available_options <- available_options
135
+ self $ status = status
136
+ self $ notes = notes
128
137
}
129
138
},
130
139
@@ -161,6 +170,8 @@ geoflow_action <- R6Class("geoflow_action",
161
170
}
162
171
return (opt )
163
172
})
173
+ self $ status = if (! is.null(yml $ status )) yml $ status else " <unknown>"
174
+ self $ notes = if (! is.null(yml $ notes )) yml $ notes else " "
164
175
},
165
176
166
177
# '@description Check that all packages required for the action are available, if yes,
@@ -341,6 +352,9 @@ list_actions <- function(raw = FALSE){
341
352
target_dir = action $ target_dir ,
342
353
pid_generator = action $ isPIDGenerator(),
343
354
packages = paste(action $ packages , collapse = " ," ),
355
+ status = action $ status ,
356
+ notes = action $ notes ,
357
+ maintainer = if (! is.null(action $ maintainer $ name )){action $ maintainer $ name }else { if (action $ maintainer $ orphaned ) " <orphaned>" else " <unknown>" },
344
358
stringsAsFactors = FALSE
345
359
))
346
360
}))
0 commit comments