@@ -15,6 +15,7 @@

 rotate_tree <- function(treeview, angle) {

     treeview <- treeview + coord_polar(theta='y', start=(angle-90)/180*pi, -1)

     treeview$data$angle <- treeview$data$angle + angle

+    treeview$plot_env <- build_new_plot_env(treeview$plot_env)

     assign("layout", "circular", envir = treeview$plot_env)

     return(treeview)

 }

@@ -46,6 +47,7 @@ open_tree <- function(treeview, angle) {

     angle <- 360/(2+NN) * (1:N+1)

     angle <- angle[idx]

     p$data$angle <- angle

+    p$plot_env <- build_new_plot_env(p$plot_env)

     assign("layout", "fan", envir = p$plot_env)

     return(p)

 }

@@ -115,8 +115,10 @@ ggplot_add.layout_ggtree <- function(object, plot, object_name) {

     } else { ## rectangular

         obj <- coord_cartesian(clip = 'off')

     }

+    plot <- ggplot_add(obj, plot, object_name)

+    plot$plot_env <- build_new_plot_env(plot$plot_env)

     assign("layout", object$layout, envir = plot$plot_env)

-    ggplot_add(obj, plot, object_name)

+    return(plot)

 }

@@ -17,6 +17,18 @@ get_layout <- function(tree_view = NULL) {

     return(layout)

 }

+build_new_plot_env <- function(env){

+    newenv <- list2env(

+                x = as.list(

+                  env, 

+                  all.names = TRUE

+                ), 

+                parent = parent.env(env)

+              )

+    attributes(newenv) <- attributes(env)

+    return(newenv)

+}

+

 reverse.treeview <- function(tv) {

     tv$data <- reverse.treeview.data(tv$data)

     return(tv)