#10 fix getter

eblondel · Jul 7, 2021 · 3d5d32b · 3d5d32b
1 parent d82c6aa
commit 3d5d32b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/WPSClient.R b/R/WPSClient.R
@@ -86,7 +86,7 @@ WPSClient <- R6Class("WPSClient",
      #describeProcess
      describeProcess = function(identifier){
         processes <- self$getProcesses()
-        processes <- processes[sapply(processes, function(process){process$identifier == identifier})]
+        processes <- processes[sapply(processes, function(process){process$getIdentifier() == identifier})]
         if(length(processes)==0){
            errMsg <- sprintf("There is no process with identifier '%s'", identifier)
            self$ERROR(errMsg)
@@ -99,7 +99,7 @@ WPSClient <- R6Class("WPSClient",
      #execute
      execute = function(identifier, request, dataInputs, responseForm, language){
         processes <- self$getProcesses()
-        processes <- processes[sapply(processes, function(process){process$identifier == identifier})]
+        processes <- processes[sapply(processes, function(process){process$getIdentifier() == identifier})]
         if(length(processes)==0){
            errMsg <- sprintf("There is no process with identifier '%s'", identifier)
            self$ERROR(errMsg)