This function takes the output of msigdbr and formats the pathways into something that can be used within SCPA
format_pathways(msigdbr_output)
output from msigdbr
list of pathways with corresponding genes
if (FALSE) {
pathways <- format_pathways(
pathways
)
}