R/zzz.R

In Ryacas0: Legacy 'Ryacas' (Interface to 'Yacas' Computer Algebra System)

.onLoad <- function(libname, pkgname){
  if (requireNamespace("pkgload", quietly = TRUE)) {
    if (pkgload::is_dev_package("Ryacas0")) {
      # Package was loaded using pkgload/devtools
      #path <- pkgload:::shim_system.file(package = "Ryacas", "yacas")
      # Uses pkgload:::shim_system.file because pkgload overwrites system.file
      path <- system.file(package = "Ryacas0", "yacas")
      
      # Force initialise so that a new instance is created.
      # Especially useful during development with e.g. devtools::load_all().
      yacas_init_force(path)
    }
  }
}