This function rename the columns of the merged inputs

rename_col(diffexp, genecol)

Arguments

diffexp

list of data.frame/data.table (s) with DE results where lines are genes

genecol

the column name of the geneID or gene name variable <string>

Value

data.tabledata.frame with new colnames

Examples

data(diffexplist)
lapply(diffexplist, colnames)
#> $GSE12050
#> [1] "Symbol" "Log2FC" "pvalue" "CI.L"   "CI.R"  
#> 
#> $GSE24883
#> [1] "Symbol" "Log2FC" "pvalue" "CI.L"   "CI.R"  
#> 
#> $GSE25401
#> [1] "Symbol" "Log2FC" "pvalue" "CI.L"   "CI.R"  
#> 
#> $GSE27949
#> [1] "Symbol" "Log2FC" "pvalue" "CI.L"   "CI.R"  
#> 
#> $GSE29718
#> [1] "Symbol" "Log2FC" "pvalue" "CI.L"   "CI.R"  
#> 
diffexp <- rename_col(diffexplist, "Symbol")
lapply(diffexp, colnames)
#> $GSE12050
#> [1] "Symbol"   "Log2FC_1" "pvalue_1" "CI.L_1"   "CI.R_1"  
#> 
#> $GSE24883
#> [1] "Symbol"   "Log2FC_2" "pvalue_2" "CI.L_2"   "CI.R_2"  
#> 
#> $GSE25401
#> [1] "Symbol"   "Log2FC_3" "pvalue_3" "CI.L_3"   "CI.R_3"  
#> 
#> $GSE27949
#> [1] "Symbol"   "Log2FC_4" "pvalue_4" "CI.L_4"   "CI.R_4"  
#> 
#> $GSE29718
#> [1] "Symbol"   "Log2FC_5" "pvalue_5" "CI.L_5"   "CI.R_5"  
#>