功能：将返回的数据框保存到工作区

Question

我无法理解这个问题：

我有一个返回数据框的函数。但是，数据框仅在我的控制台中打印，尽管我希望将其存储在工作区中。我怎样才能做到这一点？

示例数据：

n <- 32640
t <- seq(3*pi,n)
data_sim <- 30+ 2*sin(3*t)+rnorm(n)*10
data_sim <- floor(data_sim)

功能：

compress <- function (name, SR){
  ## -------------------------------------------------------
  ## COMPRESSION
  library(zoo)
  data <- get(name)
  if (is.data.frame(data)==F){
    data = as.data.frame(data)
  }
  SR <- SR
  acrossmin <- 60  
  a <- nrow(data) 
  m <- acrossmin*SR*60  
  data_compress <- matrix(NA, nrow = a/m) 
  no_mov_subset <- matrix(NA, nrow = m) 
  for (i in 1:(a/m)){
    subset <- data[(((i-1)*m)+1):((i*m)),] 
    b <- length(subset)
    for (k in 1:b){
      r <- subset[k]
      if (r == 0){              
        no_mov_subset[k] <- 0    
      } else {
        no_mov_subset[k] <- 1
      }
      sum_no_mov_subset <- sum(no_mov_subset) 
      data_compress[i] <- sum_no_mov_subset  
    }
   colnames(data_compress) <- c("activity_count")
return(data_compress)
}

运行代码：

compress("data_sim", 4/60)

显然，该函数返回一些东西，但我希望它存储在工作区而不是返回！