r - 无法使用R中的dput导入保存到文件的对象

您好我创建了一个列表对象，其中包含boot::boot()函数返回的对象的引导以及我在其上构建的结果摘要。

我使用dput将这样的对象保存到文件中。但现在我无法使用dget()或source()重新生成对象。我收到此错误：

bt <- dget(file.choose())
Error in sample.int(n, n * R, replace = TRUE) : object 'R' not found

由于我调用了boot()并在另一个函数中使用了dput，我怀疑要重建一个bt对象，在boot()中作为参数的R变量也需要存在于全局环境中（不是最佳实施）。所以我在全局创建了这样的变量：

R = 5000
bt <- dget(file.choose())
bt
[1] ""
bt <- source(file.choose())
bt
$value
[1] ""

$visible
[1] TRUE

空物件！

有什么想法吗？

的链接