diff w4mcorcov_input.R @ 10:9a52306991b3 draft

planemo upload for repository https://github.com/HegemanLab/w4mcorcov_galaxy_wrapper/tree/master commit 5aeb583ae4a55cc24289f9d95590e02553a89552
author eschen42
date Sat, 01 Sep 2018 11:33:03 -0400
parents 066b1f409e9f
children
line wrap: on
line diff
--- a/w4mcorcov_input.R	Fri Aug 10 11:15:31 2018 -0400
+++ b/w4mcorcov_input.R	Sat Sep 01 11:33:03 2018 -0400
@@ -1,6 +1,6 @@
 # read_data_frame - read a w4m data frame, with error handling
 #   e.g., data_matrix_input_env <- read_data_frame(dataMatrix_in, "data matrix input")
-read_data_frame <- function(file_path, kind_string, failure_action = failure_action) {
+read_data_frame <- function(file_path, kind_string, rdf_failure_action = failure_action) {
   my.env <- new.env()
   my.env$success <- FALSE
   my.env$msg <- sprintf("no message reading %s", kind_string)
@@ -14,7 +14,7 @@
     }
   )
   if (!my.env$success) {
-    failure_action(my.env$msg)
+    rdf_failure_action(my.env$msg)
     return ( FALSE )
   }
   return (my.env)