Commit.

1_inicio.Rmd

@@ -186,12 +186,6 @@ has.agendas.pesquisa <-
                 silent = TRUE))
 ```
 
-```{r try-apresentacao}
-has.apresentacao <-
-  !BBmisc::is.error(try(readxl::read_excel("PPG/Apresentação.xlsx", sheet = 1),
-                silent = TRUE))
-```
-
 ```{r try-area-capes}
 has.area.capes <-
   !BBmisc::is.error(try(readxl::read_excel("PPG/Área CAPES.xlsx", sheet = 1),
@@ -707,7 +701,6 @@ has.ppg.files <- as.logical(has.ppg.files)
 
 # PPG files
 has.agendas.pesquisa <- as.logical(has.agendas.pesquisa)
-has.apresentacao <- as.logical(has.apresentacao)
 has.area.capes <- as.logical(has.area.capes)
 has.autoavaliacao <- as.logical(has.autoavaliacao)
 has.avaliacao <- as.logical(has.avaliacao)
@@ -746,6 +739,9 @@ has.repositorios.sede <- as.logical(has.repositorios.sede)
 has.metricas.doi.sucupira <- as.logical(has.metricas.doi.sucupira)
 has.metricas.doi.ppg <- as.logical(has.metricas.doi.ppg)
 
+# has.posdoc
+has.posdoc <- as.logical(has.posdoc)
+
 # has.tables
 has.table.msc <- FALSE
 has.table.dsc <- FALSE

Scripts/all-required-packages.R

@@ -36,6 +36,7 @@ packs.cran <-
     "ggpubr",
     "ggraph",
     "ggtext",
+    "ggwordcloud",
     "grid",
     "gridExtra",
     "gtsummary",
@@ -76,13 +77,13 @@ packs.cran <-
     "terra",
     "tidyverse",
     "tinytable",
+    "tinytex",
     "tm",
     "tools",
     "units",
     "usethis",
     "vioplot",
     "webshot2",
-    "wordcloud2",
     "yaml"
   )
 
@@ -147,6 +148,14 @@ if (curl::has_internet()) {
     pacman::p_load_gh("trinker/textreadr")
   }
 
+
+  # update TeX packages
+  tinytex::tlmgr_update()
+
+  # install missing TeX packages
+  try(tinytex::parse_install("./autoavaliacao.log"), silent = TRUE)
+  try(tinytex::parse_packages("./autoavaliacao.log"), silent = TRUE)
+
   # update all packages
   update.packages(checkBuilt = TRUE, ask = FALSE)
 }
@@ -157,10 +166,3 @@ packs <- unique(c(packs.cran, packs.git))
 for (i in 1:length(packs)) {
   library(packs[i], character.only = TRUE)
 }
-
-# update TeX packages
-tinytex::tlmgr_update()
-
-# install missing TeX packages
-try(tinytex::parse_install("./autoavaliacao.log"), silent = TRUE)
-try(tinytex::parse_packages("./autoavaliacao.log"), silent = TRUE)

Scripts/docs-to-wordcloud.R

@@ -27,71 +27,41 @@ if (clean.text == TRUE) {
   df$freq <- rank(df$freq, ties.method = "first")
 }
 
-# set plot area
-par(
-  oma = c(0, 0, 0, 0),
-  mar = c(0, 0, 0, 0),
-  bg = main.color,
-  col.lab = "white",
-  col.axis = "white",
-  fg = "white",
-  col.main = "white"
-)
-# generate word cloud
-if (length(df) != 0) {
-  wordcloud <- wordcloud2::wordcloud2(
-    data = df,
-    size = 0.5,
-    color = rep(
-      RColorBrewer::brewer.pal(n = 9, name = "Set3"),
-      length.out = length(df$freq)
-    ),
-    backgroundColor = main.color,
-    shuffle = FALSE,
-    rotateRatio = 0,
-    ellipticity = 0.5
-  ) %>%
-    htmlwidgets::prependContent(
-      htmltools::tags$h1(style = "position:absolute; left:50%; transform:translateX(-50%); background-color:main.color; font-size:40px; color:white; line-height:normal;", cloud.title)
-    ) %>%
-    htmlwidgets::prependContent(
-      htmltools::tags$body(style = "font-family:'Lato','Helvetica Neue',Helvetica, Arial,sans-serif; background-color:main.color; margin:0; padding:0;")
-    )
-  # save it in html
-  htmlwidgets::saveWidget(wordcloud, file.path(dir.path, "tmp.html"), selfcontained = F)
-
-  # deactivate the crash reporter
-  old_chrome_args <- chromote::get_chrome_args()
-  chromote::set_chrome_args("--disable-crash-reporter")
-  Sys.setenv(CHROMOTE_CHROME = chromote::find_chrome())
-
-  # and in png
-  webshot2::webshot(
-    url = file.path("file:///", dir.path, "tmp.html"),
-    file = file.path(dir.path, paste0(sheet, ".png")),
-    delay = 5,
-    vwidth = round(1344 * 0.7),
-    vheight = round(960 * 0.7)
-  )
-  # delete the tmp folder and file
-  unlink(file.path(dir.path, "tmp_files"), recursive = TRUE)
-  unlink(file.path(dir.path, "tmp.html"))
-
-  # Restore old defaults
-  chromote::set_chrome_args(old_chrome_args)
-} else {
-  source("Scripts/plot-margins.R", local = knitr::knit_global())
-  # plot area setup
-  par(mar = c(1.5, 15, 1, 1))
-
-  layout.m <- c(1)
-  png(file.path(dir.path, paste0(sheet, ".png")), width = round(1344 * 0.7), height = round(960 * 0.7))
-  source("Scripts/plot-margins.R", local = knitr::knit_global())
-  plot(0, type = 'n', axes = FALSE)
-  title(
-    main = sheet,
-    outer = TRUE,
-    cex.main = 3
-  )
-  dev.off()
+# ensure produção bibliográfica e técnica are displayed
+n.max <- 100
+if (nrow(df) > n.max) {
+  df <- df[1:n.max, ]
 }
+
+# generate word cloud using ggplot
+wordcloud <-
+  ggplot2::ggplot(df, ggplot2::aes(
+  label = word,
+  size = freq,
+  color = factor(as.character(freq))
+  )) +
+  ggwordcloud::geom_text_wordcloud(
+    rm_outside = TRUE,
+    max_steps = 1,
+    grid_size = 1,
+    eccentricity = .9
+  ) +
+  ggplot2::scale_size_area(max_size = 10) +
+  ggplot2::theme_minimal() +
+  ggplot2::theme(
+    plot.margin = ggplot2::unit(c(0.5, 0, 0, 0), "cm"),
+    panel.background = ggplot2::element_rect(fill = main.color, color = main.color),
+    plot.background = ggplot2::element_rect(fill = main.color, color = main.color),
+    panel.grid.major = ggplot2::element_line(color = "transparent"),
+    axis.text.x = ggplot2::element_blank(),
+    axis.text.y = ggplot2::element_blank(),
+    plot.title = ggplot2::element_text(
+      hjust = 0.5,
+      size = 11,
+      color = "white",
+      face = "bold"
+    ),
+    text = ggplot2::element_text(color = "white")
+  ) +
+  ggplot2::scale_color_brewer(palette = "Blues", direction = -1) +
+  ggplot2::ggtitle(cloud.title)

autoavaliacao.Rmd

@@ -1796,7 +1796,7 @@ for (i in 1:length(lista.AC.LP)) {
 ```
 
 <!--- knit those table chunk statements --> 
-`r if(has.sucupira.files){paste(knit(text = out), collapse = '\n\n')}`
+`r if(has.sucupira.files){paste(knitr::knit(text = out), collapse = '\n\n')}`
 
 \elandscape