Commit 4ea1f4dd authored by Holger Brandl's avatar Holger Brandl

added deprecation warning when being used without design file

parent f18c070a
......@@ -99,6 +99,7 @@ genesAfter = nrow(countMatrix)
if(!is.null(design_matrix_file)){
replicates2samples = read_tsv(design_matrix_file) #%>% select(replicate, sample)
}else{
warning("DEPRECATED extracting samples from replicates is bad practise and a design file should be provided instead")
get_sample_from_replicate = function(repName) str_match(repName, "(.*)_([R]|rep)?[0-9]{1,2}$")[,2]
replicates2samples = data_frame(replicate=colnames(countMatrix)) %>% mutate(sample=get_sample_from_replicate(replicate)) # %>% distinct_all()
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment