Skip to content

Commit

Permalink
remove line changing geneI and geneII
Browse files Browse the repository at this point in the history
  • Loading branch information
LaureTomas committed Dec 16, 2022
1 parent 30000ea commit b51a10f
Showing 1 changed file with 0 additions and 2 deletions.
2 changes: 0 additions & 2 deletions R/load_interactions.R
Original file line number Diff line number Diff line change
Expand Up @@ -234,8 +234,6 @@ load_interactions <- function(file)
gi@anchor1[cond] <- a2
gi@anchor2[cond] <- a1

S4Vectors::elementMetadata(gi[cond])[c("gene_I","gene_II")] <- S4Vectors::elementMetadata(gi[cond])[c("gene_II","gene_I")]


cols <- sort(grep("_I",colnames(S4Vectors::elementMetadata(gi[cond]))[1:5],value = T))
S4Vectors::elementMetadata(gi[cond])[cols] <- S4Vectors::elementMetadata(gi[cond])[cols[c(rbind(seq(2,length(cols),2),seq(1,length(cols),2)))]]
Expand Down

0 comments on commit b51a10f

Please sign in to comment.