addons

Author: jarochi

_quarto.yml

@@ -22,8 +22,8 @@ website:
           - subsite/about.qmd
           - subsite/team.qmd
           - subsite/colab.qmd
+          - subsite/erasmus.qmd
           - subsite/alumni.qmd
-          # - subsite/retreats.qmd
           # - subsite/hobby.qmd
           # - subsite/fun.qmd
       - text: "Projects" 

subsite/erasmus.qmd

@@ -16,7 +16,7 @@ We offer a collaborative and enriching environment for **you** at all stages of
 
 - **Full support**: we assist with all necessary **administrative paperwork**, provide **guidance on Erasmus+ documentation**, and help you settle in quickly so you can focus on research.
 
-## Our interns and students
+## Our interns and trainees
 
 Each of our interns brings unique skills and perspectives that enrich our lab’s work and culture. 
 
@@ -28,7 +28,8 @@ Meet our international team members who are/were already making an impact in the
 [![Ronja Tittel](fig/ppl/rt.jpg "Ronja Tittel"){}]()
 :::
 
+## How to apply
 
 If you’re motivated to work in a collaborative, international environment and ready to expand your research experience, we’d love to hear from you! **Apply now to become a part of our team through Erasmus+ or other international internship programs.**
 
-📧 For inquiries and application details, feel free to reach out to us at [BioGenies](mailto:[email protected]) or directly to BioGenies members!
+📧 If you have questions feel free to reach out to us at [BioGenies](mailto:[email protected]) or directly to BioGenies members!

subsite/publications.qmd

@@ -54,9 +54,9 @@ library(DT)
 pub <- openalexR::oa_fetch(entity ="works",
                    author.id = c("A5015968787", "A5072021711"))
 
-pub <- pub$author %>% lapply(., function(x) {x$au_display_name %>% str_flatten(., collapse = ", ")}) %>% unlist() %>% tibble(authors = .) %>% cbind(pub, .)
+pub_mod <- pub$author %>% lapply(., function(x) {x$au_display_name %>% str_flatten(., collapse = ", ")}) %>% unlist() %>% tibble(authors = .) %>% cbind(pub, .)
 
-pub %>% 
+pub_mod %>% 
   filter(type != "dataset") %>% 
   select(title, authors, doi, publication_date, type, so, host_organization) %>% 
   drop_na(., doi) %>%
@@ -72,3 +72,29 @@ pub %>%
 
 ```
 
+
+```{r, echo=FALSE, message=FALSE}
+
+library(wordcloud)
+
+concept_cloud <- pub %>% 
+  select(inst_id = id, topics) %>%
+  tidyr::unnest(topics) %>%
+  filter(name == "field") %>%
+  # select(display_name, count) |>
+  group_by(display_name)  %>%
+  summarise(count_no = n())
+            
+pal <- c("black", scales::brewer_pal(palette = "Set1")(5))
+set.seed(2137)
+
+wordcloud::wordcloud(
+  concept_cloud$display_name,
+  concept_cloud$count_no,
+  scale = c(1, .3),
+  colors = pal
+)
+
+wordcloud2::wordcloud2(concept_cloud, size = 2.5, color = "random-light")
+
+```