{"action":"opened","issue":{"url":"https://api.github.com/repos/joshuaulrich/xts/issues/31","labels_url":"https://api.github.com/repos/joshuaulrich/xts/issues/31/labels{/name}","comments_url":"https://api.github.com/repos/joshuaulrich/xts/issues/31/comments","events_url":"https://api.github.com/repos/joshuaulrich/xts/issues/31/events","html_url":"https://github.com/joshuaulrich/xts/issues/31","id":58839052,"number":31,"title":"[R-Forge #2748] enable rollapply to return multi-column output from single column input","user":{"login":"joshuaulrich","id":1023193,"avatar_url":"https://avatars.githubusercontent.com/u/1023193?v=3","gravatar_id":"","url":"https://api.github.com/users/joshuaulrich","html_url":"https://github.com/joshuaulrich","followers_url":"https://api.github.com/users/joshuaulrich/followers","following_url":"https://api.github.com/users/joshuaulrich/following{/other_user}","gists_url":"https://api.github.com/users/joshuaulrich/gists{/gist_id}","starred_url":"https://api.github.com/users/joshuaulrich/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/joshuaulrich/subscriptions","organizations_url":"https://api.github.com/users/joshuaulrich/orgs","repos_url":"https://api.github.com/users/joshuaulrich/repos","events_url":"https://api.github.com/users/joshuaulrich/events{/privacy}","received_events_url":"https://api.github.com/users/joshuaulrich/received_events","type":"User","site_admin":false},"labels":[{"url":"https://api.github.com/repos/joshuaulrich/xts/labels/feature%20request","name":"feature request","color":"ededed"}],"state":"open","locked":false,"assignee":null,"milestone":null,"comments":0,"created_at":"2015-02-25T02:07:46Z","updated_at":"2015-02-25T02:07:46Z","closed_at":null,"body":"Submitted by: Joshua Ulrich\nAssigned to: Joshua Ulrich\n[R-Forge link](http://r-forge.r-project.org/tracker/index.php?func=detail&aid=2748&group_id=118&atid=519)\n\nTaken from: http://stackoverflow.com/q/16300762/271616\n\nrequire(xts)\nv <- xts(rnorm(10),Sys.Date()-10:1)\nf <- function(y) c(sum=sum(y[,1]), max=max(y[,1]))\n# fails because sapply() output needs to be transposed\nrollapply(v, width=3, f)\n# would like this output\nrollapply(merge(v,v), width=3, f, by.column=FALSE)\n\nFollowups:\n\nDate: 2013-08-27 19:48\nSender: Joshua Ulrich\nFixed in r765."}}