functions <- Map(function(methodMetaData, methodName)
{
+ #NOTE: Index, show and destroy are aliases for the preferred names
+ # "list", "get" and "delete". Until they are removed from discovery
+ # document we will filter them here.
+ if(methodName %in% c("index", "show", "destroy"))
+ return(NULL)
+
methodName <- paste0(resourceName, ".", methodName)
createMethod(methodName, methodMetaData)
methodDoc <- Map(function(methodMetaData, methodName)
{
+ #NOTE: Index, show and destroy are aliases for the preferred names
+ # "list", "get" and "delete". Until they are removed from discovery
+ # document we will filter them here.
+ if(methodName %in% c("index", "show", "destroy"))
+ return(NULL)
+
methodName <- paste0(resourceName, ".", methodName)
getMethodDocumentation(methodName, methodMetaData)