Fixed undocumented argument

R/banc-table.R

@@ -372,3 +372,10 @@ banc_update_status <- function(df, update, col = "status", wipe = FALSE){
 #                       chunksize = 100)
 
 
+
+
+
+
+
+
+

R/ids.R

@@ -114,6 +114,9 @@ banc_islatest <- function(x, timestamp=NULL, ...) {
 #' Find the latest id for a banc root id
 #'
 #' @inheritParams fafbseg::flywire_latestid
+#' @param x a `data.frame` with at least one of: `root_id`, `pt_root_id`, `supervoxel_id` and/or `pt_supervoxel_id`.
+#' Supervoxels will be preferentially used to update the `root_id` column.
+#' Else a vector of `BANC` root IDs.
 #' @param ... Additional arguments passed to \code{\link{flywire_latestid}}
 #'
 #' @export

R/urls.R

@@ -306,3 +306,25 @@ banc_fetch <- function(url, token=banc_token(), ...) {
   else x
 }
 
+# Make a neuroglancer layer with 3D points in it, for synapse review
+banc_annotation_layer <- function(data,
+                                  layer = "sample",
+                                  open = FALSE,
+                                  rawcoords = NA,
+                                  colpal = NULL){
+  #data <- read_csv('/Users/abates/projects/flyconnectome/bancpipeline/tracing/2024-08-12_banc_synapse_sample_v1.csv')
+  #data$pt_position<-data$`Coordinate 1`
+  data$layer <- "synapse_sample"
+  al <- ngl_annotation_layers(data[,c("pt_position", "layer")], rawcoords=rawcoords, colpal=colpal)
+  sc<-fafbseg::ngl_decode_scene(banc_scene())
+  sc2<-sc+al
+  u<-as.character(sc2)
+  su<-banc_shorturl(u)
+  # # Extract annotations!
+  # ngl_annotations(su)
+  if(open){
+    browseURL(u)
+  }else{
+    su
+  }
+}