R/getTargetScaleScoreTableNames.R

Defines functions `getTargetScaleScoreTableNames`

`getTargetScaleScoreTableNames` <- 
function(
	table_names, 
	years) {
	if (is.null(years)) {
		return(grep("TARGET_SCALE_SCORES", table_names, value=TRUE))
	} else {
		return(grep(paste(years, collapse="|"), grep("TARGET_SCALE_SCORES", table_names, value=TRUE), value=TRUE))
	}
} ### END getTargetScaleScoreTableNames
CenterForAssessment/SGP documentation built on June 2, 2025, 9:20 a.m.