Mercurial > repos > recetox > recetox_aplcms_compute_template
comparison utils.R @ 6:481d769e2f7a draft
planemo upload for repository https://github.com/RECETOX/galaxytools/tree/master/tools/recetox_aplcms commit 0873c036d734782d2647b0eea84cd1a0658f5e58
| author | recetox |
|---|---|
| date | Wed, 19 Jul 2023 00:26:15 +0000 |
| parents | f8c4db95eec3 |
| children | e2dc815e1b2c |
comparison
equal
deleted
inserted
replaced
| 5:51e37adf988f | 6:481d769e2f7a |
|---|---|
| 12 } | 12 } |
| 13 | 13 |
| 14 save_sample_name <- function(df, sample_name) { | 14 save_sample_name <- function(df, sample_name) { |
| 15 attr(df, "sample_name") <- sample_name | 15 attr(df, "sample_name") <- sample_name |
| 16 return(df) | 16 return(df) |
| 17 } | |
| 18 | |
| 19 restore_sample_name <- function(df) { | |
| 20 return(df$sample_id[1]) | |
| 17 } | 21 } |
| 18 | 22 |
| 19 load_sample_name <- function(df) { | 23 load_sample_name <- function(df) { |
| 20 sample_name <- attr(df, "sample_name") | 24 sample_name <- attr(df, "sample_name") |
| 21 if (is.null(sample_name)) { | 25 if (is.null(sample_name)) { |