R/onLoad.R

In orthoptera-aao/traitBot: todo

# Seting remote to FALSE allows local operation
.onLoad <- function(libname, pkgname){
  setwd("~")
  remote <- TRUE
  if (remote==TRUE){
    c <- bioacoustica::bioacoustica.authenticate(Sys.getenv("BAUSR"), Sys.getenv("BAPWD"))
    generateProlog(c)
  } else {
    source("~/authenticate.R", local=TRUE)
    generateProlog(c)
    uploadFromProlog(c)
    downloadAnnotations(c)
  }
}