Skip to content

Commit

Permalink
Update urls.R
Browse files Browse the repository at this point in the history
  • Loading branch information
alexanderbates committed Sep 4, 2024
1 parent 81bed71 commit 80e6546
Showing 1 changed file with 5 additions and 5 deletions.
10 changes: 5 additions & 5 deletions R/urls.R
Original file line number Diff line number Diff line change
Expand Up @@ -131,7 +131,7 @@ bancsee <- function(banc_ids = NULL,
nuclei_ids <- nuclei_ids[nuclei_ids!="0"]

# Get BANC IDs
if(!length(banc_ids)){
if(length(banc_ids)){
u1=banc_scene(banc_ids, open=F, layer = "segmentation proofreading")
colourdf1 = data.frame(ids = banc_ids,
col=grDevices::colorRampPalette(c("#54BCD1", "#0000FF", "#8A2BE2"))(length(banc_ids)))
Expand All @@ -141,15 +141,15 @@ bancsee <- function(banc_ids = NULL,
banc_ngl_segments(sc1) <- NULL
}

if(!length(fafb_ids)){
if(length(fafb_ids)){
u2=banc_scene(fafb_ids, open=F, layer = "fafb v783 imported")
colourdf2 = data.frame(ids = fafb_ids,
col=grDevices::colorRampPalette(c("#EE4244", "#D72000", "#C23A4B"))(length(fafb_ids)))
sc2<-fafbseg::ngl_add_colours(u2, colourdf2, layer = "fafb v783 imported")
fafbseg::ngl_layers(sc1)$`fafb v783 imported` <- fafbseg::ngl_layers(sc2)$`fafb v783 imported`
}

if(!length(hemibrain_ids)){
if(length(hemibrain_ids)){
u3=banc_scene(hemibrain_ids, open=F, layer = "hemibrain v1.2.1 imported")
colourdf3 = data.frame(ids = hemibrain_ids,
col=grDevices::colorRampPalette(c("#00FF00", "#32CD32", "#006400"))(length(hemibrain_ids)))
Expand All @@ -162,15 +162,15 @@ bancsee <- function(banc_ids = NULL,
fafbseg::ngl_layers(sc1)$`hemibrain v1.2.1 imported, mirrored` <- fafbseg::ngl_layers(sc4)$`hemibrain v1.2.1 imported, mirrored`
}

if(!length(manc_ids)){
if(length(manc_ids)){
u5=banc_scene(manc_ids, open=F, layer = "manc v1.2.1 imported")
colourdf5 = data.frame(ids = manc_ids,
col=grDevices::colorRampPalette(c("#FFA07A", "#FF4500", "#FF8C00"))(length(manc_ids)))
sc5<-fafbseg::ngl_add_colours(u5, colourdf5, layer = "manc v1.2.1 imported")
fafbseg::ngl_layers(sc1)$`manc v1.2.1 imported` <- fafbseg::ngl_layers(sc5)$`manc v1.2.1 imported`
}

if(!length(nuclei_ids)){
if(length(nuclei_ids)){
u6=banc_scene(manc_ids, open=F, layer = "nuclei (v1)")
colourdf6 = data.frame(ids = nuclei_ids,
col="#FC6882")
Expand Down

0 comments on commit 80e6546

Please sign in to comment.