主页 / coding / 问题 / 78432130
Accepted
KacZdr
Asked: 2024-05-05 20:11:18 +0800 CST

从函数中提取变量以及它们来自 R 中的哪些环境？

  • 772

更广泛的背景：

我想创建一个函数，列出指定函数主体中的所有变量并打印出它来自哪个环境。

下面是带有来自新环境的变量的函数示例。

g2 <- function() {
  print(cc)
  print(dd)
  print(ee)
}

e <- new.env(parent = globalenv())
e$cc <- "Hello from the new environment"
e$dd <- "Hello from the new environment2"
environment(g2) <- e
e2 <- new.env(parent = globalenv())
e2$dd <- "Hello from the new environment"
e2$ee <- "Hello from the new environment2"
environment(g2) <- e2

我已经达到了将所有变量存储在一个向量中的地步：symbols <- c("cc","dd","ee")在第二个向量中使用环境：envirs <- ls()[sapply(ls(), function(x) is.environment(get(x)))]并检查变量来自哪个环境：xin <- sapply(envirs, function(x) sapply(symbols, function(y) exists(y,get(x))))。它看起来像这样：

> xin
       e    e2
cc  TRUE FALSE
dd  TRUE  TRUE
ee FALSE  TRUE

和

> e
<environment: 0x00000127b2a1e1a8>
> e2
<environment: 0x00000127b2a20988>

现在我希望它看起来像这样：

  Symbol            Definition
1     cc <environment: 0x00000127b2a1e1a8>
2     dd <environment: 0x00000127b2a1e1a8>, <environment: 0x00000127b2a20988>
3     ee <environment: 0x00000127b2a20988>

但我不知道如何以xin这种形式获得它。当我在所有环境中仅检查一个符号（例如“dd”）时，我设法得到以下结果：

xin <- sapply(envirs, function(x) exists("dd",get(x)))
l <- sapply(envirs[xin], function(x) get(x))
data.frame(t(sapply(l,c)))
                                  e                                e2
1 <environment: 0x00000127b2a1e1a8> <environment: 0x00000127b2a20988>

我致力于通过基础包专门解决这个问题！，但我也愿意接受其他解决方案。

1 个回答

  1. Best Answer

    假设问题是给定一个环境列表envirs，我们希望创建一个数据框，其第一列是这些环境中排序的唯一名称，第二列是一个列表，其组件是包含对象名称的环境列表对于该行。

    # sorted char vector of unique symbol names
symbols <- envirs |> lapply(ls) |> unlist() |> unique() |> sort()

# given symbol name s get environments containing it
getEnvs <- function(s) Filter(function(e) s %in% ls(e), envirs)

data <- data.frame(symbols, envirs = I(lapply(symbols, getEnvs)))
str(data)

    给予

    'data.frame':   3 obs. of  2 variables:
 $ symbols: chr  "cc" "dd" "ee"
 $ envirs :List of 3
  ..$ :List of 1
  .. ..$ :<environment: 0x0000011e5fa93b88> 
  ..$ :List of 2
  .. ..$ :<environment: 0x0000011e5fa93b88> 
  .. ..$ :<environment: 0x0000011e5faa6880> 
  ..$ :List of 1
  .. ..$ :<environment: 0x0000011e5faa6880> 
  ..- attr(*, "class")= chr "AsIs"

    如果需要的是列的字符向量envirs，则使用它：

    getEnvs <- function(s) Filter(function(e) s %in% ls(e), envirs) |>
  sapply(capture.output) |>
  toString()

data <- data.frame(symbols, envirs = sapply(symbols, getEnvs))

    笔记

    设置输入envirs

    e <- new.env(parent = globalenv())
e$cc <- "Hello from the new environment"
e$dd <- "Hello from the new environment2"

e2 <- new.env(parent = globalenv())
e2$dd <- "Hello from the new environment"
e2$ee <- "Hello from the new environment2"

envirs <- list(e, e2)
    • 1

相关问题