library(bibliomatrix)
library(flexdashboard)
library(purrr)
library(dplyr)

Overview

library(collapsibleTree)

df <- 
  unit_info() %>% 
  mutate(unit_long_en = if_else(!is.na(unit_short), unit_short, unit_long_en))

# add parent_org_id's long name
p_unit_long_en <- 
  df  %>%
  left_join(df, by = c("parent_org_id" = "Diva_org_id")) %>%
  select(unit_long_en.y) %>%
  as_vector()

kth_pal3 <- as.character(palette_kth(3))

df2 <- 
  df %>% mutate(p_unit_long_en = p_unit_long_en) %>%
  # the order here is important - parent node id first, then child node id
  select(p_unit_long_en, unit_long_en, org_level, Diva_org_id) %>%
  mutate(kth_color = kth_pal3[org_level + 1]) %>%
  mutate(html_content = sprintf("<a href='#'>Blaha</a>"))

collapsibleTreeNetwork(df2, c("p_unit_long_en", "unit_long_en"), 
   fill = "kth_color", collapsed = TRUE, attribute = "html_content", zoomable = FALSE)


KTH-Library/bibliomatrix documentation built on May 20, 2024, 11:33 p.m.