R/getTableNameYear.R

Defines functions `getTableNameYear`

`getTableNameYear` <- 
function(year) {
	if (is.numeric(type.convert(unlist(strsplit(year, "[.]"))[3], as.is=TRUE))) {
		return(paste(unlist(strsplit(year, "[.]"))[2:3], collapse="."))
	} else {
		return(unlist(strsplit(year, "[.]"))[2])
	}		
} ### END getTableNameYear
CenterForAssessment/SGP documentation built on March 12, 2024, 9:43 a.m.