R/useTree.R

Defines functions useTree

#' @export
useTree <- function(tree_name){

  if(!tree_exists(tree_name))
    tree_name = start_tree(gsub('^\\.|/| |\\$|?|@|#|%|&|\\*|\\(|\\)|^|ยจ', '', tree_name))

  options("sits.rep.env$CURRENT_TREE"=tree_name)
  return(tree_name)
}
RafaMariano/sits.rep documentation built on Jan. 23, 2021, 11:39 a.m.