|
|
@@ -1,4 +1,4 @@ |
|
|
|
get_type <- function(object) |
|
|
|
getType <- function(object) |
|
|
|
{ |
|
|
|
if (is.list(object)) |
|
|
|
{ |
|
|
@@ -17,7 +17,7 @@ get_type <- function(object) |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
list_objects <- function() |
|
|
|
listObjects <- function() |
|
|
|
{ |
|
|
|
noms <- ls(envir = .GlobalEnv) |
|
|
|
objects <- lapply(noms, get, envir = .GlobalEnv) |
|
|
@@ -36,7 +36,7 @@ names(x) |
|
|
|
default_limit <- 5 |
|
|
|
current_limit <- default_limit |
|
|
|
|
|
|
|
object_content <- function(x) |
|
|
|
objectContent <- function(x) |
|
|
|
{ |
|
|
|
if (is.list(x)) |
|
|
|
{ |
|
|
|