Use nested string in R server example

eWaterCycle · Sep 24, 2024 · 5c8ca36 · 5c8ca36
1 parent d7faea2
commit 5c8ca36
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/r-server/R/server.R b/r-server/R/server.R
@@ -10,7 +10,7 @@ get_component_name <- function(request, response, keys, ...) {
     response$status <- 200L
     response$type <- 'application/json'
     # TODO call model method
-    response$body <- "Some model name"
+    response$body <- list(name = "Some model name")
     response$format(json = format_json())
     return(FALSE)
 }