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