R/foo.r

In eeholmes/package-skeleton: Template

############################################################################################################################
#   foo()
#   This is a test function
##########################################################################################################################
foo = function(x,a)
{
tmp=testfoo.ischaracter(x)
if(tmp) 
  cat("Character ", x, " ", a, "\n")
else
  cat("Not character", x, "\n")
if(1==0) cat(d)
}