Mercurial > repos > recetox > recetox_aplcms_correct_time
comparison utils.R @ 6:02c772a49998 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:48 +0000 |
| parents | bd1956f4c2aa |
| children | d69ec1171d71 |
comparison
equal
deleted
inserted
replaced
| 5:474d2bcb22e4 | 6:02c772a49998 |
|---|---|
| 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)) { |