From 4679943c1ab140eed5ee158318f158f17bcf0147 Mon Sep 17 00:00:00 2001
From: jarochi <jaroslaw.chilimoniuk@gmail.com>
Date: Thu, 14 Nov 2024 12:17:00 +0100
Subject: [PATCH] rm wordcloud2

---
 index.qmd                |  1 +
 setup-environment.R      |  3 +--
 subsite/publications.qmd | 28 ++++++++++++++++++++++++++++
 3 files changed, 30 insertions(+), 2 deletions(-)

diff --git a/index.qmd b/index.qmd
index f5bcaca..6afb80c 100644
--- a/index.qmd
+++ b/index.qmd
@@ -5,4 +5,5 @@ listing:
   sort: "date desc"
   type: grid
   categories: cloud
+  
 ---
diff --git a/setup-environment.R b/setup-environment.R
index 4b841d8..2209d59 100644
--- a/setup-environment.R
+++ b/setup-environment.R
@@ -1,4 +1,3 @@
 install.packages(c("rmarkdown", "tidyverse", "DT", "slickR", "RCurl", "openalexR",
-                   "leaflet", "fontawesome", "hrbrthemes", "ggalt", "ggbeeswarm", "wordcloud2",
-                   "curl"))
+                   "leaflet", "fontawesome", "hrbrthemes", "ggalt", "ggbeeswarm"))
 
diff --git a/subsite/publications.qmd b/subsite/publications.qmd
index 213b2fb..7ca7494 100644
--- a/subsite/publications.qmd
+++ b/subsite/publications.qmd
@@ -33,3 +33,31 @@ pub_mod %>%
   DT::datatable(escape = F)
 
 ```
+
+
+
+<!-- ```{r, echo=FALSE, message=FALSE} -->
+
+<!-- library(wordcloud2) -->
+
+<!-- concept_cloud <- pub_mod %>% -->
+<!--   select(inst_id = id, concepts) %>% -->
+<!--   tidyr::unnest(concepts) %>% -->
+<!--   select(display_name, level, score) %>% -->
+<!--   filter(score >= 0.65) %>% -->
+<!--   group_by(display_name)  %>% -->
+<!--   summarise(count_no = n(), -->
+<!--             score = median(score)) -->
+
+<!-- # concept_cloud <- pub_mod %>% -->
+<!-- #   select(inst_id = id, topics) %>% -->
+<!-- #   tidyr::unnest(topics) %>% -->
+<!-- #   select(display_name, i, score) %>% -->
+<!-- #   # filter(score >= 0.65) %>% -->
+<!-- #   group_by(display_name)  %>% -->
+<!-- #   summarise(count_no = n(), -->
+<!-- #             score = median(score)) -->
+
+<!-- wordcloud2::wordcloud2(concept_cloud %>% filter(count_no > 2), size = 2.5, color = "random-light") -->
+
+<!-- ``` -->