Minor fixes

Author: massimoaria

R/assignEvolutionColors.R

@@ -82,7 +82,7 @@ assignEvolutionColors <- function(
   nexus,
   threshold = 0.5,
   palette = NULL,
-  use_measure = "inclusion"
+  use_measure = "weighted"
 ) {
   # Prepare data structure
   Nodes <- nexus$Nodes %>%
@@ -374,6 +374,7 @@ assignEvolutionColors <- function(
         by = "name"
       ) %>%
       left_join(newdf, by = "name")
+
     add_colors <- setdiff(palette, substr(clusters$color, 1, 7))
     clusters$color[is.na(clusters$color)] <- paste0(
       add_colors[1:length(which(is.na(clusters$color)))],
@@ -397,7 +398,7 @@ assignEvolutionColors <- function(
       ) %>%
       mutate(
         color = ifelse(is.na(color), "#B3B3B380", color),
-        color = ifelse(color == "#B3B3B340", "#B3B3B380", color)
+        color = ifelse(color_original == "#B3B3B340", "#B3B3B380", color)
       )
 
     # Create a color map

README.Rmd

@@ -490,7 +490,7 @@ The function produces an interactive Sankey-like diagram showing
 thematic flows between periods, along with strategic maps for each time
 slice.
 
-```{r fig.height=9, fig.width=9}
+```{r fig.height=7, fig.width=9}
 # Thematic Evolution
 TEResults <- thematicEvolution(M, field = "DE", n = 250, 
                                               minFreq = 5, stemming = FALSE, 

README.md

@@ -522,7 +522,7 @@ dplyr::glimpse(authorInfo)
 #> $ affiliation_raw             <chr> "Department of Economics and Statistics, Università degli Studi di Napoli Federico…
 #> $ source_doi                  <chr> "10.1016/j.joi.2017.08.007"
 #> $ source_title                <chr> "bibliometrix : An R-tool for comprehensive science mapping analysis"
-#> $ query_timestamp             <dttm> 2025-11-05 21:19:07
+#> $ query_timestamp             <dttm> 2025-11-05 21:23:33
 ```
 
 This function provides comprehensive author profiles including: