# HG changeset patch # User proteore # Date 1588164673 14400 # Node ID 208b87582b4c1abf49b438a85142a943b4c278da # Parent 133309fd68755ff7c15b051b04c64c432cc36edc "planemo upload commit 9a871575622a1318adc64dad63fa5e3a9d2a19fd" diff -r 133309fd6875 -r 208b87582b4c add_expression_HPA.R --- a/add_expression_HPA.R Fri Jan 24 04:22:48 2020 -0500 +++ b/add_expression_HPA.R Wed Apr 29 08:51:13 2020 -0400 @@ -147,8 +147,8 @@ } convert_to_previous_header <- function(options){ - header = c('Gene','description','Evidence','Antibody','RNA tissue specificity','Reliability (IH)','Reliability (IF)','Subcellular location','RNA tissue specific NX','TPM max in non-specific') - names(header) = c('Gene','description','Evidence','Antibody','RNA tissue category','Reliability (IH)','Reliability (IF)','Subcellular location','RNA TS TPM','TPM max in non-specific') + header = c('Gene','Gene description','Evidence','Antibody','RNA tissue specificity','Reliability (IH)','Reliability (IF)','Subcellular location','RNA tissue specific NX','TPM max in non-specific') + names(header) = c('Gene','Gene description','Evidence','Antibody','RNA tissue category','Reliability (IH)','Reliability (IF)','Subcellular location','RNA TS TPM','TPM max in non-specific') options = names(header[which(header %in% options)]) return(options) } diff -r 133309fd6875 -r 208b87582b4c add_expression_data.xml --- a/add_expression_data.xml Fri Jan 24 04:22:48 2020 -0500 +++ b/add_expression_data.xml Wed Apr 29 08:51:13 2020 -0400 @@ -1,8 +1,8 @@ - + (RNAseq or Immuno-assays)[Human Protein Atlas] - R + r-base