Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Browse[10]> version[11:14] |
- _ |
- svn rev 68531 |
- language R |
- version.string R version 3.2.1 (2015-06-18) |
- nickname World-Famous Astronaut
- Browse[10]> c
- exiting from: ls(env, pattern = p, all.names = TRUE)
- debugging in: ls(env, pattern = p, all.names = TRUE)
- debug: {
- if (!missing(name)) {
- pos <- tryCatch(name, error = function(e) e)
- if (inherits(pos, "error")) {
- name <- substitute(name)
- if (!is.character(name))
- name <- deparse(name)
- warning(gettextf("%s converted to character string",
- sQuote(name)), domain = NA)
- pos <- name
- }
- }
- all.names <- .Internal(ls(envir, all.names, sorted))
- if (!missing(pattern)) {
- if ((ll <- length(grep("[", pattern, fixed = TRUE))) &&
- ll != length(grep("]", pattern, fixed = TRUE))) {
- if (pattern == "[") {
- pattern <- "\\["
- warning("replaced regular expression pattern '[' by '\\\\['")
- }
- else if (length(grep("[^\\\\]\\[<-", pattern))) {
- pattern <- sub("\\[<-", "\\\\\\[<-", pattern)
- warning("replaced '[<-' by '\\\\[<-' in regular expression pattern")
- }
- }
- grep(pattern, all.names, value = TRUE)
- }
- else all.names
- }
- Browse[10]> c
- exiting from: ls(env, pattern = p, all.names = TRUE)
- debugging in: ls(env, pattern = p, all.names = TRUE)
- debug: {
- if (!missing(name)) {
- pos <- tryCatch(name, error = function(e) e)
- if (inherits(pos, "error")) {
- name <- substitute(name)
- if (!is.character(name))
- name <- deparse(name)
- warning(gettextf("%s converted to character string",
- sQuote(name)), domain = NA)
- pos <- name
- }
- }
- all.names <- .Internal(ls(envir, all.names, sorted))
- if (!missing(pattern)) {
- if ((ll <- length(grep("[", pattern, fixed = TRUE))) &&
- ll != length(grep("]", pattern, fixed = TRUE))) {
- if (pattern == "[") {
- pattern <- "\\["
- warning("replaced regular expression pattern '[' by '\\\\['")
- }
- else if (length(grep("[^\\\\]\\[<-", pattern))) {
- pattern <- sub("\\[<-", "\\\\\\[<-", pattern)
- warning("replaced '[<-' by '\\\\[<-' in regular expression pattern")
- }
- }
- grep(pattern, all.names, value = TRUE)
- }
- else all.names
- }
- Browse[10]> f
- Browse[10]> f
- exiting from: ls(env, pattern = p, all.names = TRUE)
- debugging in: ls(env, pattern = p, all.names = TRUE)
- debug: {
- if (!missing(name)) {
- pos <- tryCatch(name, error = function(e) e)
- if (inherits(pos, "error")) {
- name <- substitute(name)
- if (!is.character(name))
- name <- deparse(name)
- warning(gettextf("%s converted to character string",
- sQuote(name)), domain = NA)
- pos <- name
- }
- }
- all.names <- .Internal(ls(envir, all.names, sorted))
- if (!missing(pattern)) {
- if ((ll <- length(grep("[", pattern, fixed = TRUE))) &&
- ll != length(grep("]", pattern, fixed = TRUE))) {
- if (pattern == "[") {
- pattern <- "\\["
- warning("replaced regular expression pattern '[' by '\\\\['")
- }
- else if (length(grep("[^\\\\]\\[<-", pattern))) {
- pattern <- sub("\\[<-", "\\\\\\[<-", pattern)
- warning("replaced '[<-' by '\\\\[<-' in regular expression pattern")
- }
- }
- grep(pattern, all.names, value = TRUE)
- }
- else all.names
- }
- Browse[10]> Q
- >
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement