add logs to debug ocs through geoflow-shiny

r-geoflow · Dec 10, 2024 · ea4f5ea · ea4f5ea
1 parent e4b54be
commit ea4f5ea
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/initWorkflow.R b/R/initWorkflow.R
@@ -239,6 +239,10 @@ initWorkflow <- function(file, dir = ".", jobDirPath = NULL, handleMetadata = TR
           stop(errMsg)
         }
         client_params <- unlist(software[names(software)!="handler"])
+        if(software$id == "ocs"){
+          config$logger.info("OCS connection details")
+          print(client_params)
+        }
         client <- client_handler(client_params)
       }
       if(!is.null(config$software[[software$type]][[switch(software$type,"input"=software$id,"output"=software$software_type)]])){