show highest weight companies, not lowest in company bars (#84)

R/prep_key_bars_company.R

@@ -28,7 +28,7 @@ prep_key_bars_company <-
       mutate(asset_class = "Listed Equity") %>%
       mutate_at("id", as.character) %>% # convert the col type to character to prevent errors in case empty df is binded by rows
       group_by(.data$ald_sector, .data$technology) %>% # select at most 15 companies with the highest weigths per sector+technology
-      arrange(.data$port_weight, .by_group = TRUE) %>%
+      arrange(dplyr::desc(.data$port_weight), .by_group = TRUE) %>%
       slice(1:15)  %>%
       filter(!is.null(.data$port_weight)) %>%
       filter(!is.null(.data$plan_tech_share))
@@ -62,7 +62,7 @@ prep_key_bars_company <-
       slice(1:15) %>%
       group_by(.data$ald_sector) %>%
       arrange(factor(.data$technology, levels = .env$all_tech_levels)) %>%
-      arrange(.data$port_weight, .by_group = TRUE) %>%
+      arrange(dplyr::desc(.data$port_weight), .by_group = TRUE) %>%
       filter(!is.null(.data$port_weight)) %>%
       filter(!is.null(.data$plan_tech_share))