sunburstR & ggiraph conflict in Rmd (reprex)

sunburstR_ggiraph_conflict.Rmd

---
output:
  html_document:
    code_folding: "hide" 
    toc: yes
    toc_depth: 2
---

```{r setup, include=FALSE, warning=FALSE, message=FALSE}

knitr::opts_chunk$set(
	echo = FALSE,
	message = FALSE,
	warning = FALSE
)
library(tidyverse)

```

---
title: 'Reproducible example'
date: `r format(Sys.time(), '%d.%m.%Y')`
---
```{r}
library(sunburstR)
library(htmltools)
library(d3r)
treex <- '{"children":[{"name":"5 Physics","children":[{"name":"5.214 Statistical Mechanics","children":[{"name":"5.214.2356 Self-Organized Criticality","size":15,"colname":"level3_label"}],"colname":"level2_label"}],"colname":"level1_label"},{"name":"6 Social Sciences","children":[{"name":"6.223 Hospitality, Leisure, Sport & Tourism","children":[{"name":"6.223.247 Tourism","size":6,"colname":"level3_label"}],"colname":"level2_label"}],"colname":"level1_label"},{"name":"4 Electrical Engineering, Electronics & Computer Science","children":[{"name":"4.61 Artificial Intelligence & Machine Learning","children":[{"name":"4.61.1460 Bayesian Networks","size":10,"colname":"level3_label"},{"name":"4.61.493 Load Forecasting","size":10,"colname":"level3_label"}],"colname":"level2_label"},{"name":"4.84 Supply Chain & Logistics","children":[{"name":"4.84.169 Particle Swarm Optimization","size":27,"colname":"level3_label"}],"colname":"level2_label"},{"name":"4.46 Distributed & Real Time Computing","children":[{"name":"4.46.1156 Congestion Control","size":6,"colname":"level3_label"}],"colname":"level2_label"}],"colname":"level1_label"},{"name":"7 Engineering & Materials Science","children":[{"name":"7.109 Ceramics","children":[{"name":"7.109.1875 Ti3SiC2","size":11,"colname":"level3_label"}],"colname":"level2_label"}],"colname":"level1_label"},{"name":"3 Agriculture, Environment & Ecology","children":[{"name":"3.35 Ornithology","children":[{"name":"3.35.1587 Chiroptera","size":8,"colname":"level3_label"}],"colname":"level2_label"},{"name":"3.32 Entomology","children":[{"name":"3.32.2056 Hymenoptera","size":34,"colname":"level3_label"}],"colname":"level2_label"}],"colname":"level1_label"},{"name":"2 Chemistry","children":[{"name":"2.78 Photoluminescence","children":[{"name":"2.78.1747 Fluorides","size":9,"colname":"level3_label"}],"colname":"level2_label"}],"colname":"level1_label"}],"name":"root"}'

sunx <- sund2b(treex, width="100%", height = 600)

div(style="display: flex; align-items:center;", sunx)


```


```{r echo=FALSE, message=FALSE, warning=FALSE}
library(ggforce)
library(ggiraph)
gx <-tibble(x = c(1.77,-8.19,-7.16,-2.83,-8.08,-7.27,2.26,-8.29,1.84,-9.21), 
            y = c(-1.41,3.81,3.34,-6.61,2.69,4.46,-0.39,4.93,6.69,4.28), 
            name = sample(letters[1:5],10, TRUE), n_pubs = 2:11, level1_label = paste0("Label:", name)) %>% 
  ggplot(aes(x = x, y = y))+ 
  geom_mark_hull(aes(x = x, y = y, group = level1_label, fill = level1_label,
                     label = str_wrap(level1_label, 20)),
                 radius = unit(2, "mm"), concavity = 4, expand = unit(3, "mm"),
                 alpha = 0.2, label.buffer = unit(4, "mm"), con.size = 0.75,
                 con.linetype = 1, con.colour = "grey70", con.cap = unit(1, "mm"),
                 label.fontsize = 8, label.minwidth = unit(20, 'mm')) +
  geom_point_interactive(aes(fill = level1_label, size = n_pubs, tooltip = level1_label), shape = 21)+
  scale_size_continuous(range = c(1.5, 7))+
  theme(legend.position = "none")

tooltip_css <- "background-color:gray; font-family:Arial;color:white;padding:10px;border-radius:5px;"

girafe(code = print(gx), width_svg = 10, height_svg = 8, 
        options = list(opts_tooltip(css = tooltip_css), 
                       opts_hover_inv(css = "opacity:0.1;"),
                       opts_hover(css = "fill:red;")))
```

Hi @alexeilutay, I am not sure I can reproduce. Everything seems ok to me:

Am I missing something?