Aliases: mode mode<- storage.mode storage.mode<-
Keywords: attribute
### ** Examples require(stats) sapply(options(), mode)
add.smooth bitmapType browser
"logical" "character" "character"
browserNLdisabled CBoundsCheck check.bounds
"logical" "logical" "logical"
citation.bibtex.max continue contrasts
"numeric" "character" "character"
defaultPackages demo.ask deparse.cutoff
"character" "character" "numeric"
device device.ask.default digits
"function" "logical" "numeric"
dvipscmd echo editor
"character" "logical" "character"
encoding example.ask expressions
"character" "character" "numeric"
help.search.types help.try.all.packages HTTPUserAgent
"character" "logical" "character"
httr_oauth_cache httr_oob_default internet.info
"logical" "logical" "numeric"
keep.parse.data keep.parse.data.pkgs keep.source
"logical" "logical" "logical"
keep.source.pkgs knitr.in.progress locatorBell
"logical" "logical" "logical"
mailer matprod max.print
"character" "character" "numeric"
menu.graphics na.action nwarnings
"logical" "character" "numeric"
OutDec pager papersize
"character" "character" "character"
PCRE_limit_recursion PCRE_study PCRE_use_JIT
"logical" "logical" "logical"
pdfviewer pkgType printcmd
"character" "character" "character"
prompt repos rl_word_breaks
"character" "character" "character"
scipen show.coef.Pvalues show.error.messages
"numeric" "logical" "logical"
show.signif.stars str str.dendrogram.last
"logical" "list" "character"
stringsAsFactors texi2dvi timeout
"logical" "character" "numeric"
try.outFile ts.eps ts.S.compat
"numeric" "numeric" "logical"
unzip useFancyQuotes verbose
"character" "logical" "logical"
warn warning.length width
"numeric" "numeric" "numeric"
cex3 <- c("NULL", "1", "1:1", "1i", "list(1)", "data.frame(x = 1)", "pairlist(pi)", "c", "lm", "formals(lm)[[1]]", "formals(lm)[[2]]", "y ~ x","expression((1))[[1]]", "(y ~ x)[[1]]", "expression(x <- pi)[[1]][[1]]") lex3 <- sapply(cex3, function(x) eval(str2lang(x))) mex3 <- t(sapply(lex3, function(x) c(typeof(x), storage.mode(x), mode(x)))) dimnames(mex3) <- list(cex3, c("typeof(.)","storage.mode(.)","mode(.)")) mex3
typeof(.) storage.mode(.) mode(.)
NULL "NULL" "NULL" "NULL"
1 "double" "double" "numeric"
1:1 "integer" "integer" "numeric"
1i "complex" "complex" "complex"
list(1) "list" "list" "list"
data.frame(x = 1) "list" "list" "list"
pairlist(pi) "pairlist" "pairlist" "pairlist"
c "builtin" "function" "function"
lm "closure" "function" "function"
formals(lm)[[1]] "symbol" "symbol" "name"
formals(lm)[[2]] "symbol" "symbol" "name"
y ~ x "language" "language" "call"
expression((1))[[1]] "language" "language" "("
(y ~ x)[[1]] "symbol" "symbol" "name"
expression(x <- pi)[[1]][[1]] "symbol" "symbol" "name"
## This also makes a local copy of 'pi': storage.mode(pi) <- "complex" storage.mode(pi)
[1] "complex"
rm(pi)