Updated palette

R/collaboration_area.R

@@ -97,10 +97,10 @@ collaboration_area <- function(data,
 
   ## Colour definitions
   colour_defs <-
-    c("Meeting" = "#b4d5dd",
-      "Email" = "#bfe5ee",
+    c("Meeting" = "#34b1e2",
+      "Email" = "#1d627e",
       "Instant_Message" = "#adc0cb",
-      "Unscheduled_Call" = "#e1e1e1")
+      "Unscheduled_Call" = "#b4d5dd")
 
   colour_defs <- colour_defs[names(colour_defs) %in% level_chr]
 

R/create_dist.R

@@ -49,7 +49,7 @@ create_dist <- function(data,
                         dist_colours = c("#facebc",
                                          "#fcf0eb",
                                          "#b4d5dd",
-                                         "#adc0cb")) {
+                                         "#bfe5ee")) {
 
   ## Check inputs
   required_variables <- c("Date",

R/meeting_summary.R

@@ -35,7 +35,7 @@ meeting_summary <- function(data,
              hrvar = hrvar,
              mingroup = mingroup,
              return = return,
-             bar_colour = "darkblue")
+             bar_colour = "default")
 }
 
 

R/meetingtype_dist_ca.R

@@ -145,7 +145,7 @@ meetingtype_dist_ca <- function(data,
                 y = mean(Attendees)) %>%
       mutate(value2 = sub(" ", "\n", value),
              text = ifelse(id %in% c(1, 2, 6, 7),"#FFFFFF", "black"),
-             fill = ifelse(id %in% c(1, 2, 6, 7),"#31617C", "#9FE5FF")) %>%
+             fill = ifelse(id %in% c(1, 2, 6, 7),"#1d627e", "#34b1e2")) %>%
       left_join(select(myResultsTable, MeetingType, Percent),
                 by = c("value" = "MeetingType")) %>%
       mutate(Percent = ifelse(is.na(Percent), "0 %", Percent)) %>%

R/meetingtype_dist_mt.R

@@ -92,7 +92,7 @@ meetingtype_dist_mt <- function(data, return = "plot"){
               y = mean(Attendees)) %>%
     mutate(value2 = sub(" ", "\n", value),
            text = ifelse(id %in% c(1, 2, 6, 7),"#FFFFFF", "black"),
-           fill = ifelse(id %in% c(1, 2, 6, 7),"#31617C", "#9FE5FF")) %>%
+           fill = ifelse(id %in% c(1, 2, 6, 7),"#1d627e", "#34b1e2")) %>%
     left_join(select(myResultsTable, MeetingType, Percent),
               by = c("value" = "MeetingType")) %>%
     mutate(Percent = ifelse(is.na(Percent), "0 %", Percent)) %>%

R/workpatterns_rank.R

@@ -144,7 +144,7 @@ workpatterns_rank <- function(data,
       ggplot2::ggplot(ggplot2::aes(x = Hours, y = patternRank, fill = Freq)) +
       ggplot2::geom_tile(height=.5) +
       ggplot2::ylab("Top 10 Work Patterns") +
-      ggplot2::scale_fill_gradient2(low = "white", high = "red") +
+      ggplot2::scale_fill_gradient2(low = "white", high = "#1d627e") +
       ggplot2::scale_y_reverse(breaks=seq(1,10)) +
       theme_wpa_basic() +
       ggplot2::theme(legend.position = "none") +
@@ -164,14 +164,14 @@ workpatterns_rank <- function(data,
                ymin = 0.5,
                ymax = length(myTable_legends$patternRank) + 0.5,
                alpha = .1,
-               fill = "red") +
+               fill = "#fe7f4f") +
       ggplot2::annotate("rect",
                xmin = end_hour + 0.5,
                xmax = 24.5,
                ymin = 0.5,
                ymax = length(myTable_legends$patternRank) + 0.5,
                alpha = .1,
-               fill = "red")
+               fill = "#fe7f4f")
 
   } else if(return == "table"){