@@ -30,7 +30,7 @@ run_server <- function(arena, port = 8181, host = "127.0.0.1",
3030if (is.null(arena )|| ! is(arena ," arena_live"
3131 stop(" Invalid arena argument"
3232 }
33- pr <- plumber :: plumber $ new()
33+ pr <- plumber :: Plumber $ new()
3434json_structure <- get_json_structure(arena )
3535
3636# helper function to find explainer for given name
@@ -202,11 +202,14 @@ run_server <- function(arena, port = 8181, host = "127.0.0.1",
202202pr $ handle(" GET" " /attribute/<param_type>/<param_label>"
203203function (req ,res ,param_type = " " param_label = " "
204204if (! arena $ params $ enable_attributes )return (res $ status <- 404 )
205+ # replace %20 with space etc.
206+ param_label <- URLdecode(param_label )
205207if (param_type == " model"
206208explainer <- get_explainer(param_label )
207209if (is.null(explainer ))return (res $ status <- 404 )
208210 get_model_attributes(arena ,explainer )
209211 }else if (param_type == " observation"
212+ print(param_label )
210213observation <- get_observation(param_label )
211214if (is.null(observation ))return (res $ status <- 404 )
212215 get_observation_attributes(arena ,observation )