s3exists

added s3exists.R function