generateProjectMethods <- function()
{
- c("\t\tproject.get = function(uuid)",
+ c("\t\tprojects.get = function(uuid)",
"\t\t{",
"\t\t\tself$groups.get(uuid)",
"\t\t},",
"",
- "\t\tproject.create = function(group, ensure_unique_name = \"false\")",
+ "\t\tprojects.create = function(group, ensure_unique_name = \"false\")",
"\t\t{",
"\t\t\tgroup <- c(\"group_class\" = \"project\", group)",
"\t\t\tself$groups.create(group, ensure_unique_name)",
"\t\t},",
"",
- "\t\tproject.update = function(group, uuid)",
+ "\t\tprojects.update = function(group, uuid)",
"\t\t{",
"\t\t\tgroup <- c(\"group_class\" = \"project\", group)",
"\t\t\tself$groups.update(group, uuid)",
"\t\t},",
"",
- "\t\tproject.list = function(filters = NULL, where = NULL,",
+ "\t\tprojects.list = function(filters = NULL, where = NULL,",
"\t\t\torder = NULL, select = NULL, distinct = NULL,",
"\t\t\tlimit = \"100\", offset = \"0\", count = \"exact\",",
"\t\t\tinclude_trash = NULL)",
"\t\t\t limit, offset, count, include_trash)",
"\t\t},",
"",
- "\t\tproject.delete = function(uuid)",
+ "\t\tprojects.delete = function(uuid)",
"\t\t{",
"\t\t\tself$groups.delete(uuid)",
"\t\t},",