save objects from function (PR#9365)

Full_Name: Dragan Sestovic
Version: 2.3.0
OS: Windows XP
Submission from: (NULL) (139.149.1.194)


I can not save R objects from function using "save". The simple example is
below:
I do not understand why function funSave.1 fails. Also, why does function
funSave.2 work? 

funSave.1 <- function(a)

+ {
+   save(a, file="a.1.dat")
+ }

funSave.2 <- function(a)

+ {
+   b <- a
+   save(a, file="a.2.dat")
+ }

a <- 1:10
a

 [1]  1  2  3  4  5  6  7  8  9 10

save(a, file="a.dat")
load("a.dat")
a

 [1]  1  2  3  4  5  6  7  8  9 10

a <- 1:10
funSave.1(a)
load("a.1.dat")
a

Error: recursive default argument reference

a <- 1:10
funSave.2(b)
load("a.2.dat")
a

 [1]  1  2  3  4  5  6  7  8  9 10

funSave.1 <- function(a)

funSave.2 <- function(a)

a <- 1:10
a

save(a, file="a.dat")
load("a.dat")
a

a <- 1:10
funSave.1(a)
load("a.1.dat")
a

a <- 1:10
funSave.2(b)

load("a.2.dat")

a

a <- 1:10
funSave.2(a)
load("a.2.dat")
a