# HG changeset patch # User proteore # Date 1580723702 0 # Node ID 8e75580b7d3991b393c534899c1ddd26c526d614 # Parent 5dfe3d971bd23a97a1e6bb058b2c12a87275c3dd "planemo upload commit 2e48dad9436cb087acaea82977d76544b04344f7-dirty" diff -r 5dfe3d971bd2 -r 8e75580b7d39 Build_tissue-specific_expression_dataset.R --- a/Build_tissue-specific_expression_dataset.R Mon Feb 03 09:12:42 2020 +0000 +++ b/Build_tissue-specific_expression_dataset.R Mon Feb 03 09:55:02 2020 +0000 @@ -17,6 +17,7 @@ select_HPARNAseq<-function(hpa_ref, sample) { HPA.rnaTissue = read.table(hpa_ref,header=TRUE,sep="\t",stringsAsFactors = FALSE) + names(HPA.rnaTissue) = sapply(names(HPA.rnaTissue), function(string) gsub('Sample','Tissue',string),USE.NAMES = F) res.rna <- subset(HPA.rnaTissue, Tissue%in%sample) if ("Unit" %in% names(res.rna)){ res.rna = subset(res.rna, select = -Unit) @@ -56,7 +57,6 @@ # Extract options data_source = args$data_source - names(data_source) = sapply(names(data_source), function(string) gsub('Sample','Tissue',string),USE.NAMES = F) hpa_ref = args$hpa_ref if (data_source == "IHC") { tissue = strsplit(args$tissue, ",")[[1]] diff -r 5dfe3d971bd2 -r 8e75580b7d39 Build_tissue-specific_expression_dataset.xml --- a/Build_tissue-specific_expression_dataset.xml Mon Feb 03 09:12:42 2020 +0000 +++ b/Build_tissue-specific_expression_dataset.xml Mon Feb 03 09:55:02 2020 +0000 @@ -1,4 +1,4 @@ - + [Human Protein Atlas] R diff -r 5dfe3d971bd2 -r 8e75580b7d39 proteore_protein_atlas_rna_tissue.loc.sample --- a/proteore_protein_atlas_rna_tissue.loc.sample Mon Feb 03 09:12:42 2020 +0000 +++ b/proteore_protein_atlas_rna_tissue.loc.sample Mon Feb 03 09:55:02 2020 +0000 @@ -1,2 +1,2 @@ # -9979818977 HPA_RNA_23-10-2018 HPA RNA 23/10/2018 HPA_rna_tissue tool-data/HPA_rna_tissue_23-10-2018.tsv +9979818977 HPA_RNA_23-10-2018 HPA rna tissue 23/10/2018 HPA_rna_tissue tool-data/HPA_rna_tissue_23-10-2018.tsv