Added a fix to project create and project update.

Arvados-DCO-1.1-Signed-off-by: Fuad Muhic <fmuhic@capeannenterprises.com>

diff --git a/sdk/R/R/Arvados.R b/sdk/R/R/Arvados.R
index 2c9d003be99febed023885f173c62f22d1fa582b..b5210263e1950c51742563927c68b0d72537ad50 100644 (file)
--- a/sdk/R/R/Arvados.R
+++ b/sdk/R/R/Arvados.R
@@ -160,6 +160,7 @@ Arvados <- R6::R6Class(
                             "Content-Type"  = "application/json")
 
             names(body) <- c("group")
+            body$group <- c("group_class" = "project", body$group)
             body <- jsonlite::toJSON(body, auto_unbox = T)
 
             serverResponse <- private$http$POST(projectURL, headers, body)
@@ -197,6 +198,7 @@ Arvados <- R6::R6Class(
             headers <- list(Authorization = paste("OAuth2", private$token))
 
             names(filters) <- c("groups")
+            filters[[length(filters) + 1]] <- list("group_class", "=", "project")
 
             serverResponse <- private$http$GET(projectURL, headers, filters, limit, offset)
             projects <- private$httpParser$parseJSONResponse(serverResponse)