R/Monash.R

In unicol: The Colors of your University

## Monash.R | 2023 06 16
## Colors of Monash University, USA
## --------------------------------

# Information: ------

# cur_pals: "monash_1", "monash_2" (2)
# inst: "Monash University"
# country: USA
# URL: "https://www.monash.edu"

# Color source:

# URL: <https://www.monash.edu/__data/assets/pdf_file/0004/1656508/9.-Digital-Guidelines.pdf>
# Page 66 of PDF manual
# Last check: 2023-06-16


# Colors: ------

# Colors are defined in color palettes (below).


# Color palette(s):


# - monash_1: Primary colors of Monash University ------

#' Primary colors of Monash University, USA 
#'
#' \code{monash_1} provides the six primary colors
#' of \href{https://www.monash.edu/}{Monash University}, USA.
#'
#' The 6 primary colors are
#' \code{"white"} (defined as HEX #FFFFFF),
#' \code{"Monash blue"} (defined as HEX #006DAE),
#' \code{"black"} (defined as HEX #000000),
#' \code{"dark grey"} (defined as HEX #3c3c3c),
#' \code{"grey"} (defined as HEX #505050), and
#' \code{"light grey"} (defined as HEX #F6F6F6).
#' 
#' \code{monash_1} uses HEX color definitions. 
#' 
#' The primary color palette is preferred; 
#' the use of grays (tints of black) is welcome.
#' 
#' @return
#' A named vector of colors (HEX/HTML codes of type character).
#'
#' @author
#' \strong{unicol}, 2023-06-16.
#'
#' @source
#' Color definitions are based on the
#' \href{https://www.monash.edu/__data/assets/pdf_file/0004/1656508/9.-Digital-Guidelines.pdf}{Color manual}.
#'
#' @examples
#' monash_1
#' unikn::seecol(monash_1, main = "Primary colors of Monash University") # view color palette
#'
#' @family U.S. university color palettes
#'
#' @seealso
#' \code{\link{monash_2}} for the secondary colors of Monash University; 
#' \code{\link{seecol}} for viewing and comparing color palettes;
#' \code{\link{usecol}} for using color palettes;
#' \code{\link{simcol}} for finding similar colors;
#' \code{\link{newpal}} for defining new color palettes;
#' \code{\link{grepal}} for finding named colors.
#'
#' @export

monash_1 <- unikn::newpal(col = c("#FFFFFF", "#006DAE", 
                                  "#000000", "#3c3c3c", "#505050", "#F6F6F6"),
                          names = c("white", "Monash blue", 
                                    "black", "dark grey", "grey", "light grey"),
                          as_df = FALSE)

# # Check:
# unikn::seecol(monash_1, main = "Primary colors of Monash University", col_bg = "lightgrey")



# - monash_2: Secondary colors of Monash University ------

#' Secondary colors of Monash University, USA 
#'
#' \code{monash_2} provides the nine secondary colors
#' of \href{https://www.monash.edu/}{Monash University}, USA.
#'
#' The 9 secondary colors are 
#' \code{"blue"} (defined as HEX #00739d),
#' \code{"purple"} (defined as HEX #6f64a9),
#' \code{"fuchsia"} (defined as HEX #c90095),
#' \code{"ruby"} (defined as HEX #c800d9),
#' \code{"red"} (defined as HEX #df0021),
#' \code{"orange"} (defined as HEX #c33603),
#' \code{"umber"} (defined as HEX #795548),
#' \code{"olive"} (defined as HEX #616d3a), and
#' \code{"green"} (defined as HEX #006f29).
#' 
#' \code{monash_2} uses HEX color definitions. 
#'
#' In accordance with the Web Content Accessibility Guide (WCAG) AA standards, 
#' the secondary colors have been approved for online use with white text overlay.
#'
#' @return
#' A named vector of colors (HEX/HTML codes of type character).
#'
#' @author
#' \strong{unicol}, 2023-06-16.
#'
#' @source
#' Color definitions are based on the
#' \href{https://www.monash.edu/__data/assets/pdf_file/0004/1656508/9.-Digital-Guidelines.pdf}{Color manual}.
#'
#' @examples
#' monash_2
#' unikn::seecol(monash_2, main = "Secondary colors of Monash University") # view color palette
#'
#' @family U.S. university color palettes
#'
#' @seealso
#' \code{\link{monash_1}} for the primary colors of Monash University; 
#' \code{\link{seecol}} for viewing and comparing color palettes;
#' \code{\link{usecol}} for using color palettes;
#' \code{\link{simcol}} for finding similar colors;
#' \code{\link{newpal}} for defining new color palettes;
#' \code{\link{grepal}} for finding named colors.
#'
#' @export

monash_2 <- unikn::newpal(col = c("#00739d", "#6f64a9", "#c90095", "#c800d9", "#df0021", 
                                  "#c33603", "#795548", "#616d3a", "#006f29"),
                          names = c("blue", "purple", "fuchsia", "ruby", "red", 
                                    "orange", "umber", "olive", "green"),
                          as_df = FALSE)

# # Check:
# unikn::seecol(monash_2, main = "Accent colors Monash University", col_bg = "lightgrey")


# ToDo:-----

# -etc.

### eof. -------