Mercurial > repos > recetox > recetox_aplcms_merge_known_table
comparison utils.R @ 6:dd7bbc2b99d1 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:00 +0000 |
| parents | fb95cb4a6b9b |
| children | 8ecb609cc265 |
comparison
equal
deleted
inserted
replaced
| 5:396a3b1eafd0 | 6:dd7bbc2b99d1 |
|---|---|
| 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)) { |