Load multiple .RData files together

This function loads multiple .RData files either into a single list object or directly into the global environment. It provides options for verbosity, returning object names, and handling of non-existent files.

Usage

LoadMultiple(
  Files = NULL,
  Verbose = TRUE,
  OneObject = TRUE,
  ReturnNames = TRUE
)

Arguments

Files

Character vector. The paths of .RData files to be loaded.

Verbose

Logical. Whether to print progress messages. Default: TRUE.

OneObject

Logical. Whether to load all objects into a single list (TRUE) or directly into the global environment (FALSE). Defaults to TRUE.

ReturnNames

Logical. Whether to return the names of the loaded objects. Only effective when OneObject is FALSE. Defaults to TRUE.

Value

If OneObject is TRUE, returns a named list of all objects loaded from the specified files. If OneObject is FALSE and ReturnNames is TRUE, returns a character vector of the names of the objects loaded into the global environment. Otherwise, returns NULL.

Author

Ahmed El-Gabbas

Examples

(Files <- system.file(
   "testdata", c("culcita_dat.RData", "gopherdat2.RData"), package = "lme4"))
#> [1] "/home/runner/work/_temp/Library/lme4/testdata/culcita_dat.RData"
#> [2] "/home/runner/work/_temp/Library/lme4/testdata/gopherdat2.RData" 

ls()
#> [1] "Files"

# ---------------------------------------------------
# Load multiple *.RData files to one list object
# `OneObject = TRUE`
# ---------------------------------------------------
MultiObj <- LoadMultiple(Files = Files, OneObject = TRUE)
ls()
#> [1] "Files"    "MultiObj"

str(MultiObj, 1)
#> List of 2
#>  $ culcita_dat:'data.frame':	80 obs. of  3 variables:
#>  $ gopherdat2 :'data.frame':	30 obs. of  7 variables:

# ---------------------------------------------------
# Load multiple *.RData files separately to the current environment
# `OneObject = FALSE`
# ---------------------------------------------------
ls()
#> [1] "Files"    "MultiObj"
rm("MultiObj")
ls()
#> [1] "Files"

LoadMultiple(Files = Files, OneObject = FALSE)
#> Object: culcita_dat was loaded successfully.
#> Object: Gdat was loaded successfully.
#> [1] "culcita_dat" "Gdat"       

str(Gdat, 1)
#> 'data.frame':	30 obs. of  7 variables:
#>  $ Site   : Factor w/ 10 levels "BS","CB","Cent",..: 1 1 1 2 2 2 3 3 3 4 ...
#>  $ year   : num  2004 2005 2006 2004 2005 ...
#>  $ shells : int  0 0 0 1 0 1 0 1 1 9 ...
#>  $ type   : Factor w/ 1 level "Fresh": 1 1 1 1 1 1 1 1 1 1 ...
#>  $ Area   : num  15.2 15.2 15.2 16 16 16 6.9 6.9 6.9 43.2 ...
#>  $ density: num  4.8 4.8 4.8 2.8 2.8 2.8 29.1 29.1 29.1 4.2 ...
#>  $ prev   : num  1 1 1 4.3 8 17.6 28.6 51.9 10.7 80.7 ...

str(culcita_dat, 1)
#> 'data.frame':	80 obs. of  3 variables:
#>  $ block    : Factor w/ 10 levels "1","2","3","4",..: 1 1 2 2 3 3 4 4 5 5 ...
#>  $ predation: num  0 1 1 1 1 1 1 1 1 1 ...
#>  $ ttt      : Factor w/ 4 levels "none","crabs",..: 1 1 1 1 1 1 1 1 1 1 ...

# ---------------------------------------------------
# Load multiple *.RData files, one object already exists
# ---------------------------------------------------
ls()
#> [1] "Files"
rm("culcita_dat")
#> Warning: object 'culcita_dat' not found
ls()
#> [1] "Files"

try(LoadMultiple(Files = Files, OneObject = FALSE))
#> Object: culcita_dat was loaded successfully.
#> Object: Gdat was loaded successfully.
#> [1] "culcita_dat" "Gdat"