# Construct a SAS format string for a specified (vector of) type names, lengths, and digits.
fstr <- function(name, length, digits)
{
invalid <- function(x) is.null(x) | ( length(x)<1 ) | ( nchar(x) < 1 ) | x==0
inner <- function(i)
{
if( invalid(name[i]) )
return("")
if( invalid( length[i] ) )
return(name[i])
if( invalid(digits[i]) )
return( paste(name[i], length[i], '.', sep='' ) )
else
return( paste(name[i], length[i], '.', digits[i], sep='' ) )
}
if(length(name)>0)
sapply( 1:length(name), inner)
else
character(0)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.