The R Project SVN R

Rev

Rev 59039 | Rev 72638 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 59039 Rev 61150
Line 50... Line 50...
50 
 
 50 
 
51 
cmp.logical <- function(log.v)
 51 
cmp.logical <- function(log.v)
52 
{
 52 
{
53 
  ## Purpose: compact printing of logicals
 53 
  ## Purpose: compact printing of logicals
54 
  log.v <- as.logical(log.v)
 54 
  log.v <- as.logical(log.v)
55 
  noquote(if(length(log.v)==0)"()" else c(".","|")[1+log.v])
 55 
  noquote(if(length(log.v) == 0)"()" else c(".","|")[1 + log.v])
56 
}
 56 
}
57 
cmp.logical(stats::runif(20) > 0.8)
 57 
cmp.logical(stats::runif(20) > 0.8)
58 
}
 58 
}
59 
\keyword{print}
 59 
\keyword{print}
60 
\keyword{methods}
 60 
\keyword{methods}