Skip to content

Conversation

@g1o
Copy link

@g1o g1o commented Nov 9, 2021

This helps when dealing with a big dataset, where you might wish to select all intersections with one Set but not others.

small code example for all 2 by 2 combinations with myTargetSet:

c2<-combn(names( MySetList ) ,2)[,grep("myTargetSet",combn(names( MySetList ),2)[1,])]
list_of_lists <- apply(t(c2),1,list) )

upset(fromList(ortholist) ,nsets = 81, nintersects=100
,queries= list(list (query = elements ,
params = list( "myTargetSet" ), color= "red" ,active = T) )
,intersections = c(list( list( "myTargetSet" ) ),list_of_lists)
)

This helps when dealing with a big dataset, where you might wish to select all intersections with one Set but not others. 

small code example for all 2 by 2 combinations with myTargetSet:

c2<-combn(names( MySetList ) ,2)[,grep("myTargetSet",combn(names( MySetList ),2)[1,])]
list_of_lists <- apply(t(c2),1,list) )

upset(fromList(ortholist) ,nsets = 81, nintersects=100
      ,queries= list(list (query = elements , 
                         params = list( "myTargetSet" ), color= "red" ,active = T) )  
      ,intersections = c(list( list( "myTargetSet" ) ),list_of_lists)
       )
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment

Labels

None yet

Projects

None yet

Development

Successfully merging this pull request may close these issues.

1 participant