Question

我有一个函数，我从一个具有一定范围的方法中寻找数据帧，例如1-500但是不能要求函数一次性给出所有值。所以我尝试创建一个函数来迭代每个块的值。

relationstatus <- function(n){
  mylist <- list()
  for(x in seq(1,n,100)) {
    y = x+99
      if(y > n){
        y = n
      }
    myFriends_info <- getUsers(myFriends$id[x:y], token=access_token, private_info=TRUE)
    #store the above myFriends_info in the list in each iteration
    append(mylist,myFriends_info)
    head(myFriends_info)
  } 
  return(mylist)
}

Input - 500
Output - list containing  data frames(myFriends_info data frames)

因此对于500输入，我将期待一个包含5个数据帧的列表

然后最后我期待列表中的所有数据框，然后函数返回列表，但我希望该函数像普通技术一样工作，如java或其他东西，但我无法解决它。任何更好的方法来解决它或我在哪里做错了因为我的列表返回null

Answer 1

很简单，我只需要在我的清单上重做 -

relationstatus <- function(n){
  mylist <- list()
  j = 1
  for(x in seq(1,n,100)) {
    y = x+99
      if(y > n){
        y = n
      }
    myFriends_info <- getUsers(myFriends$id[x:y], token=access_token, private_info=TRUE)
    sEOG <- paste("", j, sep="")
    mylist[[sEOG]] <-myFriends_info
    j = j+ 1
  } 
  return(mylist)
}

在R中的函数内的列表中附加数据帧

1 个答案: