Mercurial > repos > recetox > recetox_aplcms_recover_weaker_signals
comparison utils.R @ 8:99d118321d5f 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:27:52 +0000 |
| parents | e2cb970d99dd |
| children | a9bb2ccc53de |
comparison
equal
deleted
inserted
replaced
| 7:c3d4b82c7e5d | 8:99d118321d5f |
|---|---|
| 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)) { |