weekday labeller for ggplot2 axis labels

weekday_labeller.R

convertNumToWeekdayName <- function(weekday_num) {
	c(
		"Sunday",
		"Monday", "Tuesday", "Wednesday", "Thursday",
	 	"Friday", "Saturday"
	) %>%
		.[weekday_num + 1]
}


weekdayLabeller <- function() {
	function(label) {
		convertNumToWeekdayName(as.numeric(label))
	}
}