@@ -33,30 +33,3 @@ pub_mod %>%
3333 DT::datatable(escape = F)
3434
3535```
36-
37-
38- <!-- # ```{r, echo=FALSE, message=FALSE} -->
39- <!-- # -->
40- <!-- # library(wordcloud2) -->
41- <!-- # -->
42- <!-- # concept_cloud <- pub_mod %>% -->
43- <!-- # select(inst_id = id, concepts) %>% -->
44- <!-- # tidyr::unnest(concepts) %>% -->
45- <!-- # select(display_name, level, score) %>% -->
46- <!-- # filter(score >= 0.65) %>% -->
47- <!-- # group_by(display_name) %>% -->
48- <!-- # summarise(count_no = n(), -->
49- <!-- # score = median(score)) -->
50- <!-- # -->
51- <!-- # # concept_cloud <- pub_mod %>% -->
52- <!-- # # select(inst_id = id, topics) %>% -->
53- <!-- # # tidyr::unnest(topics) %>% -->
54- <!-- # # select(display_name, i, score) %>% -->
55- <!-- # # # filter(score >= 0.65) %>% -->
56- <!-- # # group_by(display_name) %>% -->
57- <!-- # # summarise(count_no = n(), -->
58- <!-- # # score = median(score)) -->
59- <!-- # -->
60- <!-- # wordcloud2::wordcloud2(concept_cloud, size = 2.5, color = "random-light") -->
61- <!-- # -->
62- <!-- # ``` -->
0 commit comments