comparison 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
comparison
equal deleted inserted replaced
9:06c51af11531 10:9a52306991b3
1 # read_data_frame - read a w4m data frame, with error handling 1 # read_data_frame - read a w4m data frame, with error handling
2 # e.g., data_matrix_input_env <- read_data_frame(dataMatrix_in, "data matrix input") 2 # e.g., data_matrix_input_env <- read_data_frame(dataMatrix_in, "data matrix input")
3 read_data_frame <- function(file_path, kind_string, failure_action = failure_action) { 3 read_data_frame <- function(file_path, kind_string, rdf_failure_action = failure_action) {
4 my.env <- new.env() 4 my.env <- new.env()
5 my.env$success <- FALSE 5 my.env$success <- FALSE
6 my.env$msg <- sprintf("no message reading %s", kind_string) 6 my.env$msg <- sprintf("no message reading %s", kind_string)
7 tryCatch( 7 tryCatch(
8 expr = { 8 expr = {
12 , error = function(e) { 12 , error = function(e) {
13 my.env$ msg <- sprintf("%s read failed", kind_string) 13 my.env$ msg <- sprintf("%s read failed", kind_string)
14 } 14 }
15 ) 15 )
16 if (!my.env$success) { 16 if (!my.env$success) {
17 failure_action(my.env$msg) 17 rdf_failure_action(my.env$msg)
18 return ( FALSE ) 18 return ( FALSE )
19 } 19 }
20 return (my.env) 20 return (my.env)
21 } 21 }
22 22