fixing

Merge branch 'main' of github.com:BioGenies/BioGenies.github.io

# Conflicts:
#	subsite/publications.qmd

Author: jarochi

index.qmd

@@ -5,5 +5,4 @@ listing:
   sort: "date desc"
   type: grid
   categories: cloud
-  
 ---

setup-environment.R

@@ -1,3 +1,3 @@
 install.packages(c("rmarkdown", "tidyverse", "DT", "slickR", "RCurl", "openalexR",
-                   "leaflet", "fontawesome", "hrbrthemes", "ggalt", "ggbeeswarm"))
+                   "leaflet", "fontawesome", "hrbrthemes", "ggalt", "ggbeeswarm", "wordcloud2"))
 

subsite/publications.qmd

@@ -2,44 +2,6 @@
 title: "Publications"
 ---
 
-<!-- # ```{r, echo=FALSE, message=FALSE} -->
-<!-- #  -->
-<!-- # library(bib2df) -->
-<!-- # library(tidyverse) -->
-<!-- # library(DT) -->
-<!-- #  -->
-<!-- # bib_dat <- bib2df("BIOgenies.bib", separate_names = TRUE) -->
-<!-- #  -->
-<!-- # test1 <- bib_dat %>%  -->
-<!-- #   select(BIBTEXKEY, AUTHOR, JOURNAL, TITLE, YEAR, DOI, PUBLISHER) -->
-<!-- #    -->
-<!-- # authors <- lapply(test1$AUTHOR, function(x){ -->
-<!-- #   x$full_name %>% str_flatten(collapse = ", ") %>% rbind() -->
-<!-- # }) %>%   -->
-<!-- #   tibble(authors = .)  -->
-<!-- #  -->
-<!-- # new_df <- cbind(authors, test1) -->
-<!-- #  -->
-<!-- #  -->
-<!-- # new_df$authors <- new_df$authors %>%  -->
-<!-- #   str_remove_all(., "[{}]") -->
-<!-- #  -->
-<!-- # new_df$TITLE <- new_df$TITLE %>%  -->
-<!-- #   str_remove_all(., "[{}]") -->
-<!-- #  -->
-<!-- # new_df %>%  -->
-<!-- #   mutate(journal = if_else(is.na(JOURNAL), PUBLISHER, JOURNAL), -->
-<!-- #          title = TITLE, -->
-<!-- #          doi = DOI, -->
-<!-- #          year = YEAR) %>%  -->
-<!-- #   arrange(desc(year)) %>%  -->
-<!-- #   select(title, authors, doi, year, journal) %>%  -->
-<!-- #   datatable() -->
-<!-- #  -->
-<!-- # ``` -->
-
-
-
 ```{r, echo=FALSE, message=FALSE}
 
 library(openalexR)
@@ -73,28 +35,28 @@ pub_mod %>%
 ```
 
 
-# ```{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, size = 2.5, color = "random-light")
-# 
-# ```
+<!-- # ```{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, size = 2.5, color = "random-light") -->
+<!-- #  -->
+<!-- # ``` -->