R/utils.R

Defines functions getColorFrancis

getColorFrancis <- function(shade=c("happy", "angry")){
    shade <- match.arg(shade)
    if (shade=="happy"){
        return("firebrick")
    } else {
        return("firebrick4")
    }
}
Jfortin1/Jipito documentation built on May 7, 2019, 10:36 a.m.