RosettaCodeData/Task/Empty-string/R/empty-string.r
Ingy döt Net 764da6cbbb CDE
2013-04-10 16:57:12 -07:00

9 lines
149 B
R

s <- ''
if (s == '') cat('Empty\n')
#or
if (nchar(s) == 0) cat('Empty\n')
if (s != '') cat('Not empty\n')
#or
if (nchar(s) > 0) cat('Not empty\n')