R/namingScheme.R

In envirem: Generation of ENVIREM Variables

##' @title List Naming Scheme
##' @description Lists the naming scheme, either as default, or 
##' as modified by the user.
##' @details See \code{\link{assignNames}}.
##' @examples
##' namingScheme()
##' @export

namingScheme <- function() {
	
	# cat('\n')
	# cat('bio:\t', .var$bio, '\t\t\t##\t', .var$bio_post, '\n')
	# cat('tmin:\t', .var$tmin, '\t\t\t##\t', .var$tmin_post, '\n')
	# cat('tmax:\t', .var$tmax, '\t\t\t##\t', .var$tmax_post, '\n')
	# cat('tmean:\t', .var$tmean, '\t\t\t##\t', .var$tmean_post, '\n')
	# cat('precip:\t', .var$precip, '\t\t\t##\t', .var$precip_post, '\n')
	# cat('solrad:\t', .var$solrad, '\t\t\t##\t', .var$solrad_post, '\n')
	# cat('\nto change these values, see ?assignNames.')

	# print(sprintf("%-7s %-11s %-3s %s", 'bio:', .var$bio, '##', .var$bio_post))
	# print(sprintf("%-7s %-11s %-3s %s", 'tmin:', .var$tmin, '##', .var$tmin_post))
	# print(sprintf("%-7s %-11s %-3s %s", 'tmax:', .var$tmax, '##', .var$tmax_post))
	# print(sprintf("%-7s %-11s %-3s %s", 'tmean:', .var$tmean, '##', .var$tmean_post))
	# print(sprintf("%-7s %-11s %-3s %s", 'precip:', .var$precip, '##', .var$precip_post))
	# print(sprintf("%-7s %-11s %-3s %s", 'solrad:', .var$solrad, '##', .var$solrad_post))
	# cat('\nto change these values, see ?assignNames.')
		
	vartable <- cbind.data.frame(variable = c('tmin:', 'tmax:', 'tmean:', 'precip:', 'solrad:', 'pet:'), 
		prefix = c(.var$tmin, .var$tmax, .var$tmean, .var$precip, .var$solrad, .var$pet),
		index = rep('##', 6),
		suffix = c(.var$tmin_post, .var$tmax_post, .var$tmean_post, .var$precip_post, .var$solrad_post, .var$pet_post))
		

	print(knitr::kable(vartable, format = 'pandoc', align = c('l', 'l', 'c', 'l')))
	message('\n\tTo change these values, see ?assignNames.')
	
}