taxonomy_default.R 262 Bytes
Newer Older
Eric Coissac's avatar
Eric Coissac committed
1 2 3 4 5 6 7 8 9 10 11 12
.The_default_taxonomy = new.env(parent = emptyenv())

#' @export
set_default_taxonomy <- function(taxonomy) {
  .The_default_taxonomy$taxonomy <- taxonomy
  invisible(taxonomy)
}

#' @export
get_default_taxonomy <- function() {
  .The_default_taxonomy$taxonomy
}