如何遍历shiny::reactiveValues对象并检查成员内存占用？

完全可以实现你提到的两个目标，以下是具体的实现方法：

1. 获取reactiveValues对象的所有元素名称 #

shiny::reactiveValues本质是一个环境对象，可以用ls()函数直接提取其中的元素名称：

# 获取所有元素名称
element_names <- ls(obj)
print(element_names)

2. 计算每个元素的内存占用 #

可以结合基础包的utils::object.size()或pryr::object_size()（后者能更准确计算对象的实际内存占用，包括共享部分）来遍历计算每个元素的内存：

方法一：使用基础包工具 #

# 遍历元素并计算内存
memory_usage <- sapply(element_names, function(name) {
  format(object.size(obj[[name]]), units = "auto")
})

# 整理成数据框查看结果
result_df <- data.frame(
  元素名称 = names(memory_usage),
  内存占用 = as.character(memory_usage),
  stringsAsFactors = FALSE
)

print(result_df)

方法二：精准计算内存（需pryr包） #

如果需要更准确的内存统计，先安装并加载pryr包：

install.packages("pryr")
library(pryr)

# 遍历计算内存
memory_usage <- sapply(element_names, function(name) {
  format(object_size(obj[[name]]), units = "auto")
})

# 整理结果
result_df <- data.frame(
  元素名称 = names(memory_usage),
  内存占用 = as.character(memory_usage),
  stringsAsFactors = FALSE
)

print(result_df)

完整整合示例 #

针对你提供的示例对象，整合所有步骤的代码如下：

library(shiny)

# 初始化reactiveValues对象
obj <- shiny::reactiveValues()
obj$a <- data.frame(as.data.frame(matrix(runif(n=10, min=1, max=10), nrow=50)))
obj$b <- data.frame(as.data.frame(matrix(runif(n=10, min=1, max=10), nrow=50)))
obj$c <- data.frame(as.data.frame(matrix(runif(n=10, min=1, max=10), nrow=50)))

# 获取元素名称
element_names <- ls(obj)

# 计算内存并输出结果
memory_usage <- sapply(element_names, function(name) {
  format(object.size(obj[[name]]), units = "auto")
})

result_df <- data.frame(元素名称 = names(memory_usage), 内存占用 = as.character(memory_usage))
print(result_df)

运行后会输出类似如下的结果：

元素名称 内存占用
a       a    4.1 Kb
b       b    4.1 Kb
c       c    4.1 Kb

内容的提问来源于stack exchange，提问作者triphook