R/zzz.R

In natverse/hemibrainr: Code for Working with Data from Janelia FlyEM's Hemibrain Project and the flywire data sets``

# set options
.onAttach <- function(libname, pkgname){
  options(hemibrain_data = file.path(getwd(),"hemibrainr_data"))

  paths=c(
    nullToNA(getOption("remote_connectome_data")),
    file.path("/Volumes/GoogleDrive/Shared\ drives",
    c("hemibrainr", "hemibrain")))
  pathsok=file.exists(paths)

  if(any(pathsok)){
    options(remote_connectome_data = paths[which(pathsok)[1]])
  }else{
    # fallback
    options(remote_connectome_data = file.path(getwd(),"hemibrainr_data"))

    packageStartupMessage("
  ####################### remote data ########################
  To use data grabbing functions in hemibrainr please point
  hemibrainr to a shared drive, mounted with Google
  filestream OR rclone, by setting the option
      options(remote_connectome_data='/path/to/drive')

  To mount with rclone, just run in R:
      hemibrainr_rclone()
  And unmount with:
      hemibrainr_rclone_unmount()
  You will need to have installed and configured rclone. See
  https://natverse.github.io/hemibrainr/articles/google_filestream.html
  or ?hemibrainr_set_drive
  ####################### remote data ########################
  ")
  }

  # Set googlesheets API key
  # try(hemibrainr_google_login())

  # Set Google sheets of interest
  hemibrainr_matching_gsheet = ifelse(!is.null(getOption("hemibrainr_matching_gsheet")),getOption("hemibrainr_matching_gsheet"),"1OSlDtnR3B1LiB5cwI5x5Ql6LkZd8JOS5bBr-HTi0pOw")
  flywire_lineages_gsheet = ifelse(!is.null(getOption("flywire_lineages_gsheet")),getOption("flywire_lineages_gsheet"),"1QyuHFdqz705OSxXNynD9moIsLvZGjjBjylx5sGZP2Yg")
  flywire_lineages_gsheets = if(!is.null(getOption("flywire_lineages_gsheets"))){getOption("flywire_lineages_gsheets")}else{c("1QyuHFdqz705OSxXNynD9moIsLvZGjjBjylx5sGZP2Yg","1J3LxBlG42I2_xVHUERottgytdybBCyQjxDlIzFAjqgc")}
  flywire_flagged_gsheet = ifelse(!is.null(getOption("flywire_flagged_gsheet")),getOption("flywire_flagged_gsheet"),"1rzG1MuZYacM-vbW7100aK8HeA-BY6dWAVXQ7TB6E2cQ")

  # Set options for sheets
  options(hemibrainr_matching_gsheet = hemibrainr_matching_gsheet)
  options(flywire_lineages_gsheet = flywire_lineages_gsheet)
  options(flywire_flagged_gsheet = flywire_flagged_gsheet)
  options(flywire_lineages_gsheets = flywire_lineages_gsheets)
  options(hemibrainr_gsheets = c(options()$hemibrainr_matching_gsheet,
                                 options()$flywire_lineages_gsheet,
                                 options()$flywire_flagged_gsheet))
}