Mercurial > repos > recetox > recetox_aplcms_recover_weaker_signals
comparison utils.R @ 8:9b1e7715ae24 draft default tip
planemo upload for repository https://github.com/RECETOX/galaxytools/tree/master/tools/recetox_aplcms commit 0873c036d734782d2647b0eea84cd1a0658f5e58
| author | recetox |
|---|---|
| date | Wed, 19 Jul 2023 00:25:34 +0000 |
| parents | 80930df7b6cb |
| children |
comparison
equal
deleted
inserted
replaced
| 7:a851350b8581 | 8:9b1e7715ae24 |
|---|---|
| 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)) { |