R/r_utils.R

In momeara/Zr: R client for http://zinc15.docking.org/

# -*- tab-width:2;indent-tabs-mode:t;show-trailing-whitespace:t;rm-trailing-spaces:t -*-
# vi: set ts=2 noet:


#' create date code of the form YYMMDD
#' inputs:
#'    d (optional): date code in the format of Sys.Date() for which to generate the date code, defaulting to 'today'
#' @export
date_code <- function(d = NA) {
	# reference http://www.r-cookbook.com/node/17
	if (is.na(d)) d <- Sys.Date()
	pattern <- "20([[:digit:]]{2})-([[:digit:]]{2})-([[:digit:]]{2})"
	paste(
		sub(pattern, "\\1", d), sub(pattern, "\\2", d), sub(pattern, "\\3", d),
		sep = "")
}


#' @importFrom magrittr %>%
NULL