R/testfoo.ischaracter.r

In eeholmes/package-skeleton: Template

############################################################################################################################
#   testfoo.ischaracter()
#   tests if x is a character
##########################################################################################################################
testfoo.ischaracter = function(x)
{
if(is.character(x)) return(TRUE)
else return(FALSE)
}