Mercurial > repos > eschen42 > w4mcorcov
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)