{"action":"opened","issue":{"url":"https://api.github.com/repos/att/rcloud/issues/1333","labels_url":"https://api.github.com/repos/att/rcloud/issues/1333/labels{/name}","comments_url":"https://api.github.com/repos/att/rcloud/issues/1333/comments","events_url":"https://api.github.com/repos/att/rcloud/issues/1333/events","html_url":"https://github.com/att/rcloud/issues/1333","id":57765250,"number":1333,"title":"enviewer breaks if environments have more than a few entries","user":{"login":"s-u","id":2073427,"avatar_url":"https://avatars.githubusercontent.com/u/2073427?v=3","gravatar_id":"","url":"https://api.github.com/users/s-u","html_url":"https://github.com/s-u","followers_url":"https://api.github.com/users/s-u/followers","following_url":"https://api.github.com/users/s-u/following{/other_user}","gists_url":"https://api.github.com/users/s-u/gists{/gist_id}","starred_url":"https://api.github.com/users/s-u/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/s-u/subscriptions","organizations_url":"https://api.github.com/users/s-u/orgs","repos_url":"https://api.github.com/users/s-u/repos","events_url":"https://api.github.com/users/s-u/events{/privacy}","received_events_url":"https://api.github.com/users/s-u/received_events","type":"User","site_admin":false},"labels":[{"url":"https://api.github.com/repos/att/rcloud/labels/bug","name":"bug","color":"fc2929"}],"state":"open","locked":false,"assignee":null,"milestone":null,"comments":0,"created_at":"2015-02-16T04:58:53Z","updated_at":"2015-02-16T04:58:53Z","closed_at":null,"body":"Example:\r\n\r\n```r\r\ne=environment(rcloud.out)\r\n```\r\n\r\nError: refresh: Error in x[seq_len(n)] : object of type 'environment' is not subsettable head.default(val, 5) <- head(val, 5) <- paste(head(val, 5), collapse = \", \") <- rcloud.enviewer.display.value(val) <- FUN(\"e\"[[1L]], ...) <- lapply(vars, function(x) { <- val <- get(x, envir = env) <- if (is.data.frame(val)) { <- l <- list() <- l[[x]] <- rcloud.enviewer.display.dataframe(x) <- ret$data <<- c(ret$data, l) <- } <- else if (typeof(val) == \"closure\") { <- l <- list() <- l[[x]] <- rcloud.enviewer.display.function(val) <- ret$functions <<- c(ret$functions, l) <- } <- else { <- l <- list() <- l[[x]] <- rcloud.enviewer.display.value(val) <- ret$values <<- c(ret$values, l) <- } <- }) <- rcloud.enviewer.build(ls(envir = env), env) <- rcloud.enviewer.on.change(.GlobalEnv) <- fun(...)"}}