add experimental support for our fanc metadata

* sourced from neck connective repo

Author: jefferis

R/meta.R

@@ -173,7 +173,7 @@ manc_meta <- function(ids, ...) {
 fanc_meta <- function(ids=NULL, ...) {
   ids=fanc_ids(ids)
   df=fancr::with_fanc(fancorbanc_meta(table='neuron_information', ids=ids, ...))
-  metaf=getOption('coconatfly.fancmeta')
+  metaf=getOption('coconatfly.fanc_meta')
   if(!is.null(metaf)) {
     # we can use an unevaluated call as an option
     # by evaluating we can trigger function

R/zzz.R

@@ -0,0 +1,10 @@
+.onLoad <- function(libname, pkgname) {
+  # set up experimental extra
+  coconatfly.fanc_meta=getOption('coconatfly.fanc_meta')
+  if(is.null(coconatfly.fanc_meta)) {
+    options(coconatfly.fanc_meta=function() {
+      fafbseg::flywire_sirepo_file_memo('https://github.com/flyconnectome/2023neckconnective/blob/dev/data/fanc-neckconnective-anns.tsv', read=TRUE)
+    })
+  }
+  invisible()
+}