... |
... |
@@ -119,12 +119,7 @@ theme_tree2_internal <- function(bgcolor="white", fgcolor="black",
|
119 |
119 |
theme_inset <- function(legend.position = "none", ...) {
|
120 |
120 |
list(xlab(NULL),
|
121 |
121 |
ylab(NULL),
|
122 |
|
- theme_tree(legend.position = legend.position,
|
123 |
|
- function() theme(panel.background = element_rect(fill = "transparent", colour = NA),
|
124 |
|
- plot.background = element_rect(fill = "transparent", colour = NA),
|
125 |
|
- legend.key = element_rect(fill = "transparent", colour = NA),
|
126 |
|
- legend.background = element_rect(fill = "transparent",colour = NA),
|
127 |
|
- ...)
|
128 |
|
- )
|
|
122 |
+ theme_tree(legend.position = legend.position, ...),
|
|
123 |
+ ggfun::theme_transparent()
|
129 |
124 |
)
|
130 |
125 |
}
|