R/shorten.R

In salah31416/toolbox: Tools Library

shorten = function(x, sep = ".", ini = 1, n = 3)
{
	abrev = function(x = x, sep = sep, i = ini, f = n)
	{
		y = unlist(strsplit(x, " "))
		z = substring(y, i, f)
		w = concatena(z, sep = sep)
		return(w)
	}#end function abrev
	
	return(sapply(x, abrev, sep = sep))
}#end function shorten