comparison utils.R @ 6:e7305ba0dd38 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:37 +0000
parents ebca18e223bf
children 32b66fb6a6a0
comparison
equal deleted inserted replaced
5:702a849c1e0e 6:e7305ba0dd38
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)) {