Last data update: 2014.03.03

 R: Browse Objects in Environment
browseEnvR Documentation

Browse Objects in Environment

Description

The browseEnv function opens a browser with list of objects currently in sys.frame() environment.

Usage

browseEnv(envir = .GlobalEnv, pattern,
          excludepatt = "^last\.warning",
          html = .Platform$GUI != "AQUA",
          expanded = TRUE, properties = NULL,
          main = NULL, debugMe = FALSE)

Arguments

envir

an environment the objects of which are to be browsed.

pattern

a regular expression for object subselection is passed to the internal ls() call.

excludepatt

a regular expression for dropping objects with matching names.

html

is used to display the workspace on a HTML page in your favorite browser. The default except when running from R.app on OS X.

expanded

whether to show one level of recursion. It can be useful to switch it to FALSE if your workspace is large. This option is ignored if html is set to FALSE.

properties

a named list of global properties (of the objects chosen) to be showed in the browser; when NULL (as per default), user, date, and machine information is used.

main

a title string to be used in the browser; when NULL (as per default) a title is constructed.

debugMe

logical switch; if true, some diagnostic output is produced.

Details

Very experimental code: displays a static HTML page on all platforms except R.app on OS X.

Only allows one level of recursion into object structures.

It can be generalized. See sources for details. Most probably, this should rather work through using the tkWidget package (from https://www.bioconductor.org).

See Also

str, ls.

Examples

if(interactive()) {
   ## create some interesting objects :
   ofa <- ordered(4:1)
   ex1 <- expression(1+ 0:9)
   ex3 <- expression(u, v, 1+ 0:9)
   example(factor, echo = FALSE)
   example(table, echo = FALSE)
   example(ftable, echo = FALSE)
   example(lm, echo = FALSE, ask = FALSE)
   example(str, echo = FALSE)

   ## and browse them:
   browseEnv()

   ## a (simple) function's environment:
   af12 <- approxfun(1:2, 1:2, method = "const")
   browseEnv(envir = environment(af12))
 }

Results


R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(utils)
> png(filename="/home/ddbj/snapshot/RGM3/R_rel/result/utils/browseEnv.Rd_%03d_medium.png", width=480, height=480)
> ### Name: browseEnv
> ### Title: Browse Objects in Environment
> ### Aliases: browseEnv wsbrowser
> ### Keywords: interface
> 
> ### ** Examples
> 
> #if(interactive()) {
>    ## create some interesting objects :
>    ofa <- ordered(4:1)
>    ex1 <- expression(1+ 0:9)
>    ex3 <- expression(u, v, 1+ 0:9)
>    example(factor, echo = FALSE)
>    example(table, echo = FALSE)
   d
b    A  B  C D E
  A 10  .  . . .
  B  . 10  . . .
  C  .  . 10 . .
>    example(ftable, echo = FALSE)
>    example(lm, echo = FALSE, ask = FALSE)
>    example(str, echo = FALSE)
 int [1:12] 1 2 3 4 5 6 7 8 9 10 ...
function (name, pos = -1L, envir = as.environment(pos), all.names = FALSE, 
    pattern, sorted = TRUE)  
function (name)  
'data.frame':	39 obs. of  5 variables:
 $ y                    : Time-Series  from 1962 to 1972: 8.79 8.79 8.81 8.81 8.91 ...
 $ lag.quarterly.revenue: num  8.8 8.79 8.79 8.81 8.81 ...
 $ price.index          : num  4.71 4.7 4.69 4.69 4.64 ...
 $ income.level         : num  5.82 5.83 5.83 5.84 5.85 ...
 $ market.potential     : num  13 13 13 13 13 ...
function (object, ...)  
List of 18
 $ double.eps           : num 2.2204460492503130808e-16
 $ double.neg.eps       : num 1.1102230246251565404e-16
 $ double.xmin          : num 2.2250738585072013831e-308
 $ double.xmax          : num 1.7976931348623157081e+308
 $ double.base          : int 2
 $ double.digits        : int 53
 $ double.rounding      : int 5
 $ double.guard         : int 0
 $ double.ulp.digits    : int -52
 $ double.neg.ulp.digits: int -53
 $ double.exponent      : int 11
 $ double.min.exp       : int -1022
 $ double.max.exp       : int 1024
 $ integer.max          : int 2147483647
 $ sizeof.long          : int 8
 $ sizeof.longlong      : int 8
 $ sizeof.longdouble    : int 16
 $ sizeof.pointer       : int 8
List of 4
 $ coefficients: Named num [1:2] 1.18e-15 1.00
  ..- attr(*, "names")= chr [1:2] "Intercept" "X"
 $ residuals   : num [1:9] -9.01e-16 1.72e-15 -2.47e-16 -2.25e-16 -2.03e-16 ...
 $ intercept   : logi TRUE
 $ qr          :List of 6
  ..$ qt   : num [1:9] -1.50e+01 7.75 -2.22e-16 0.00 2.22e-16 ...
  ..$ qr   : num [1:9, 1:2] -3 0.333 0.333 0.333 0.333 ...
  .. ..- attr(*, "dimnames")=List of 2
  .. .. ..$ : NULL
  .. .. ..$ : chr [1:2] "Intercept" "X"
  ..$ qraux: num [1:2] 1.33 1.26
  ..$ rank : int 2
  ..$ pivot: int [1:2] 1 2
  ..$ tol  : num 1e-07
  ..- attr(*, "class")= chr "qr"
List of 4
 $ coefficients: Named num [1:2] 1.18e-15 1.00
  ..- attr(*, "names")= chr [1:2] "Intercept" "X"
 $ residuals   : num [1:9] -9.01e-16 1.72e-15 -2.47e-16 -2.25e-16 -2.03e-16 ...
 $ intercept   : logi TRUE
 $ qr          :List of 6
  ..- attr(*, "class")= chr "qr"
List of 4
 $ coefficients: Named num [1:2] 1.18e-15 1.00
  ..- attr(*, "names")= chr [1:2] "Intercept" "X"
 $ residuals   : num [1:9] -9.01e-16 1.72e-15 -2.47e-16 -2..
 $ intercept   : logi TRUE
 $ qr          :List of 6
  ..$ qt   : num [1:9] -1.50e+01 7.75 -2.22e-16 0.00 2.22e..
  ..$ qr   : num [1:9, 1:2] -3 0.333 0.333 0.333 0.333 ...
  .. ..- attr(*, "dimnames")=List of 2
  .. .. ..$ : NULL
  .. .. ..$ : chr [1:2] "Intercept" "X"
  ..$ qraux: num [1:2] 1.33 1.26
  ..$ rank : int 2
  ..$ pivot: int [1:2] 1 2
  ..$ tol  : num 1e-07
  ..- attr(*, "class")= chr "qr"
List of 4
$ coefficients: Named num [1:2] 1.18e-15 1.00
..- attr(*, "names")= chr [1:2] "Intercept" "X"
$ residuals : num [1:9] -9.01e-16 1.72e-15 -2.47e-16
   -2.25e-16 -2.03e-16 ...
$ intercept : logi TRUE
$ qr :List of 6
..$ qt : num [1:9] -1.50e+01 7.75 -2.22e-16 0.00 2.22e-16
   ...
..$ qr : num [1:9, 1:2] -3 0.333 0.333 0.333 0.333 ...
.. ..- attr(*, "dimnames")=List of 2
.. .. ..$ : NULL
.. .. ..$ : chr [1:2] "Intercept" "X"
..$ qraux: num [1:2] 1.33 1.26
..$ rank : int 2
..$ pivot: int [1:2] 1 2
..$ tol : num 1e-07
..- attr(*, "class")= chr "qr"
List of 60
 $ CBoundsCheck         : logi FALSE
 $ HTTPUserAgent        : chr "R (3.3.1 x86_64-pc-linux-gnu x86_64 linux-gnu)"
 $ OutDec               : chr "."
 $ add.smooth           : logi TRUE
 $ bitmapType           : chr "cairo"
 $ browser              : chr "/usr/bin/firefox"
 $ browserNLdisabled    : logi FALSE
 $ check.bounds         : logi FALSE
 $ citation.bibtex.max  : int 1
 $ continue             : chr "+ "
 $ contrasts            : Named chr [1:2] "contr.treatment" "contr.poly"
  ..- attr(*, "names")= chr [1:2] "unordered" "ordered"
 $ defaultPackages      : chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
 $ demo.ask             : chr "default"
 $ deparse.cutoff       : int 60
 $ device               :function (file = if (onefile) "Rplots.pdf" else "Rplot%03d.pdf", width, 
    height, onefile, family, title, fonts, version, paper, encoding, bg, 
    fg, pointsize, pagecentre, colormodel, useDingbats, useKerning, fillOddEven, 
    compress)  
 $ device.ask.default   : logi FALSE
 $ digits               : int 7
 $ dvipscmd             : chr "dvips"
 $ echo                 : logi TRUE
 $ editor               : chr "vi"
 $ encoding             : chr "native.enc"
 $ example.ask          : chr "default"
 $ expressions          : int 5000
 $ help.search.types    : chr [1:3] "vignette" "demo" "help"
 $ help.try.all.packages: logi FALSE
 $ internet.info        : int 2
 $ keep.source          : logi FALSE
 $ keep.source.pkgs     : logi FALSE
 $ locatorBell          : logi TRUE
 $ mailer               : chr "mailto"
 $ max.print            : int 99999
 $ menu.graphics        : logi TRUE
 $ na.action            : chr "na.omit"
 $ nwarnings            : int 50
 $ pager                : chr "/home/ddbj/local/lib64/R/bin/pager"
 $ papersize            : chr "a4"
 $ pdfviewer            : chr "/usr/bin/xdg-open"
 $ pkgType              : chr "source"
 $ printcmd             : chr "lpr"
 $ prompt               : chr "> "
 $ repos                : Named chr "@CRAN@"
  ..- attr(*, "names")= chr "CRAN"
 $ rl_word_breaks       : chr " \t\n"\'`><=%;,|&{()}"
 $ scipen               : num 0
 $ show.coef.Pvalues    : logi TRUE
 $ show.error.messages  : logi TRUE
 $ show.signif.stars    : logi TRUE
 $ showErrorCalls       : logi TRUE
 $ str                  :List of 3
  ..$ strict.width: chr "no"
  ..$ digits.d    : int 3
  ..$ vec.len     : int 4
 $ str.dendrogram.last  : chr "`"
 $ stringsAsFactors     : logi TRUE
 $ texi2dvi             : chr "/usr/bin/texi2dvi"
 $ timeout              : num 60
 $ ts.S.compat          : logi FALSE
 $ ts.eps               : num 1e-05
 $ unzip                : chr "/usr/bin/unzip"
 $ useFancyQuotes       : logi TRUE
 $ verbose              : logi FALSE
 $ warn                 : num 0
 $ warning.length       : int 1000
 $ width                : int 80
List of 72
 $ xlog     : logi FALSE
 $ ylog     : logi FALSE
 $ adj      : num 0.5
 $ ann      : logi TRUE
 $ ask      : logi FALSE
 $ bg       : chr "white"
 $ bty      : chr "o"
 $ cex      : num 1
 $ cex.axis : num 1
 $ cex.lab  : num 1
 $ cex.main : num 1.2
 $ cex.sub  : num 1
 $ cin      : num [1:2] 0.15 0.2
 $ col      : chr "black"
 $ col.axis : chr "black"
 $ col.lab  : chr "black"
 $ col.main : chr "black"
 $ col.sub  : chr "black"
 $ cra      : num [1:2] 10.8 14.4
 $ crt      : num 0
 $ csi      : num 0.2
 $ cxy      : num [1:2] 0.0597 0.1917
 $ din      : num [1:2] 6.67 6.67
 $ err      : int 0
 $ family   : chr ""
 $ fg       : chr "black"
 $ fig      : num [1:4] 0 1 0 1
 $ fin      : num [1:2] 6.67 6.67
 $ font     : int 1
 $ font.axis: int 1
 $ font.lab : int 1
 $ font.main: int 2
 $ font.sub : int 1
 $ lab      : int [1:3] 5 5 7
 $ las      : int 0
 $ lend     : chr "round"
 $ lheight  : num 1
 $ ljoin    : chr "round"
 $ lmitre   : num 10
 $ lty      : chr "solid"
 $ lwd      : num 1
 $ mai      : num [1:4] 1.02 0.82 0.82 0.42
 $ mar      : num [1:4] 5.1 4.1 4.1 2.1
 $ mex      : num 1
 $ mfcol    : int [1:2] 1 1
 $ mfg      : int [1:4] 1 1 1 1
 $ mfrow    : int [1:2] 1 1
 $ mgp      : num [1:3] 3 1 0
 $ mkh      : num 0.001
 $ new      : logi FALSE
 $ oma      : num [1:4] 0 0 0 0
 $ omd      : num [1:4] 0 1 0 1
 $ omi      : num [1:4] 0 0 0 0
 $ page     : logi TRUE
 $ pch      : int 1
 $ pin      : num [1:2] 5.43 4.83
 $ plt      : num [1:4] 0.123 0.937 0.153 0.877
 $ ps       : int 12
 $ pty      : chr "m"
 $ smo      : num 1
 $ srt      : num 0
 $ tck      : num NA
 $ tcl      : num -0.5
 $ usr      : num [1:4] -0.58 1.58 -2.09 2.54
 $ xaxp     : num [1:3] -0.5 1.5 4
 $ xaxs     : chr "r"
 $ xaxt     : chr "s"
 $ xpd      : logi FALSE
 $ yaxp     : num [1:3] -2 2 4
 $ yaxs     : chr "r"
 $ yaxt     : chr "s"
 $ ylbias   : num 0.2
 chr [1:12] "a" "b" NA NA NA "f" "g" "h" "i" "j" "k" ...
List of 2
 $ a: chr "A"
 $ L:List of 100
  ..$ : int 1
  ..$ : int 2
  ..$ : int 3
  ..$ : int 4
  ..$ : int 5
  ..$ : int 6
  ..$ : int 7
  ..$ : int 8
  ..$ : int 9
  .. [list output truncated]
 chr "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvw"| __truncated__
 chr "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxy"| __truncated__
chr
   "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstu"..
   __truncated__
List of 4
$ coefficients: Named num [1:2] 1.18e-15 1.00
..- attr(*, "names")= chr [1:2] "Intercept" "X"
$ residuals : num [1:9] -9.01e-16 1.72e-15 -2.47e-16
   -2.25e-16 -2.03e-16 ...
$ intercept : logi TRUE
$ qr :List of 6
..$ qt : num [1:9] -1.50e+01 7.75 -2.22e-16 0.00 2.22e-16
   ...
..$ qr : num [1:9, 1:2] -3 0.333 0.333 0.333 0.333 ...
.. ..- attr(*, "dimnames")=List of 2
.. .. ..$ : NULL
.. .. ..$ : chr [1:2] "Intercept" "X"
..$ qraux: num [1:2] 1.33 1.26
..$ rank : int 2
..$ pivot: int [1:2] 1 2
..$ tol : num 1e-07
..- attr(*, "class")= chr "qr"
List of 60
$ CBoundsCheck : logi FALSE
$ HTTPUserAgent : chr "R (3.3.1 x86_64-pc-linux-gnu x86_64
   linux-gnu)"
$ OutDec : chr "."
$ add.smooth : logi TRUE
$ bitmapType : chr "cairo"
$ browser : chr "/usr/bin/firefox"
$ browserNLdisabled : logi FALSE
$ check.bounds : logi FALSE
$ citation.bibtex.max : int 1
$ continue : chr "+ "
$ contrasts : Named chr [1:2] "contr.treatment"
   "contr.poly"
..- attr(*, "names")= chr [1:2] "unordered" "ordered"
$ defaultPackages : chr [1:6] "datasets" "utils"
   "grDevices" "graphics" ...
$ demo.ask : chr "default"
$ deparse.cutoff : int 60
$ device :function (file = if (onefile) "Rplots.pdf" else
   "Rplot%03d.pdf",
width, height, onefile, family, title, fonts, version,
paper, encoding, bg, fg, pointsize, pagecentre,
colormodel, useDingbats, useKerning, fillOddEven,
compress)
$ device.ask.default : logi FALSE
$ digits : int 7
$ dvipscmd : chr "dvips"
$ echo : logi TRUE
$ editor : chr "vi"
$ encoding : chr "native.enc"
$ example.ask : chr "default"
$ expressions : int 5000
$ help.search.types : chr [1:3] "vignette" "demo" "help"
$ help.try.all.packages: logi FALSE
$ internet.info : int 2
$ keep.source : logi FALSE
$ keep.source.pkgs : logi FALSE
$ locatorBell : logi TRUE
$ mailer : chr "mailto"
$ max.print : int 99999
$ menu.graphics : logi TRUE
$ na.action : chr "na.omit"
$ nwarnings : int 50
$ pager : chr "/home/ddbj/local/lib64/R/bin/pager"
$ papersize : chr "a4"
$ pdfviewer : chr "/usr/bin/xdg-open"
$ pkgType : chr "source"
$ printcmd : chr "lpr"
$ prompt : chr "> "
$ repos : Named chr "@CRAN@"
..- attr(*, "names")= chr "CRAN"
$ rl_word_breaks : chr " \t\n"\'`><=%;,|&{()}"
$ scipen : num 0
$ show.coef.Pvalues : logi TRUE
$ show.error.messages : logi TRUE
$ show.signif.stars : logi TRUE
$ showErrorCalls : logi TRUE
$ str :List of 4
..$ strict.width: chr "wrap"
..$ digits.d : num 3
..$ vec.len : num 4
..$ formatNum :function (x, ...)
$ str.dendrogram.last : chr "`"
$ stringsAsFactors : logi TRUE
$ texi2dvi : chr "/usr/bin/texi2dvi"
$ timeout : num 60
$ ts.S.compat : logi FALSE
$ ts.eps : num 1e-05
$ unzip : chr "/usr/bin/unzip"
$ useFancyQuotes : logi TRUE
$ verbose : logi FALSE
$ warn : num 0
$ warning.length : int 1000
$ width : int 60
 int [1:20(1d)] 1 2 3 4 5 1 2 3 4 5 ...
 Factor w/ 0 levels: 
'data.frame':	0 obs. of  0 variables
 language {  A + B; list(C, D) }
 - attr(*, "srcref")=List of 3
  ..$ :Class 'srcref'  atomic [1:8] 53 12 53 12 12 12 53 53
  .. .. ..- attr(*, "srcfile")=Classes 'srcfilecopy', 'srcfile' <environment: 0x33b5738> 
  ..$ :Class 'srcref'  atomic [1:8] 53 14 53 16 14 16 53 53
  .. .. ..- attr(*, "srcfile")=Classes 'srcfilecopy', 'srcfile' <environment: 0x33b5738> 
  ..$ :Class 'srcref'  atomic [1:8] 53 19 53 28 19 28 53 53
  .. .. ..- attr(*, "srcfile")=Classes 'srcfilecopy', 'srcfile' <environment: 0x33b5738> 
 - attr(*, "srcfile")=Classes 'srcfilecopy', 'srcfile' <environment: 0x33b5738> 
 - attr(*, "wholeSrcref")=Class 'srcref'  atomic [1:8] 1 0 53 30 0 30 1 53
  .. ..- attr(*, "srcfile")=Classes 'srcfilecopy', 'srcfile' <environment: 0x33b5738> 
Loading required package: stats4
Formal class 'mle' [package "stats4"] with 9 slots
  ..@ call     : language mle(minuslogl = ll)
  ..@ coef     : Named num [1:2] 24.99 3.06
  .. ..- attr(*, "names")= chr [1:2] "ymax" "xh"
  ..@ fullcoef : Named num [1:2] 24.99 3.06
  .. ..- attr(*, "names")= chr [1:2] "ymax" "xh"
  ..@ vcov     : num [1:2, 1:2] 17.85 -3.72 -3.72 1.07
  .. ..- attr(*, "dimnames")=List of 2
  .. .. ..$ : chr [1:2] "ymax" "xh"
  .. .. ..$ : chr [1:2] "ymax" "xh"
  ..@ min      : num 28.6
  ..@ details  :List of 6
  .. ..$ par        : Named num [1:2] 24.99 3.06
  .. .. ..- attr(*, "names")= chr [1:2] "ymax" "xh"
  .. ..$ value      : num 28.6
  .. ..$ counts     : Named int [1:2] 25 18
  .. .. ..- attr(*, "names")= chr [1:2] "function" "gradient"
  .. ..$ convergence: int 0
  .. ..$ message    : NULL
  .. ..$ hessian    : num [1:2, 1:2] 0.203 0.706 0.706 3.388
  .. .. ..- attr(*, "dimnames")=List of 2
  .. .. .. ..$ : chr [1:2] "ymax" "xh"
  .. .. .. ..$ : chr [1:2] "ymax" "xh"
  ..@ minuslogl:function (ymax = 15, xh = 6)  
  .. ..- attr(*, "srcref")=Class 'srcref'  atomic [1:8] 63 7 64 52 7 52 63 64
  .. .. .. ..- attr(*, "srcfile")=Classes 'srcfilecopy', 'srcfile' <environment: 0x33b5738> 
  ..@ nobs     : int NA
  ..@ method   : chr "BFGS"
Warning message:
In dpois(y, lambda = ymax/(1 + x/xh), log = TRUE) : NaNs produced
> 
>    ## and browse them:
>    browseEnv()
R objects in .GlobalEnv environment is shown in browser '/usr/bin/firefox' 
> 
>    ## a (simple) function's environment:
>    af12 <- approxfun(1:2, 1:2, method = "const")
>    browseEnv(envir = environment(af12))
R objects in environment(af12) environment is shown in browser '/usr/bin/firefox' 
> # }
> 
> 
> 
> 
> 
> dev.off()
null device 
          1 
>


Created & Maintained by Osamu Ogasawara (osamu.ogasawara@gmail.com) and IMSBIO