如何使用dput（）创建将整个虹膜数据集创建为JSON所需的代码

Question

如果将iris数据集的前38行转换为JSON，然后提供给dput()，则可以复制/粘贴R控制台中的结果文本并将其分配为新的json对象。

即

iris[1:38, ] %>% toJSON(.) %>% dput(.)

# structure("[{\"Sepal.Length\":5.1,\"Sepal.Width\":3.5,\"Petal.Length\":1.4,\"Petal.Width\":0.2,\"Species\":\"setosa\"},
# etc

new_json_object <- structure("[{\"Sepal.Length\":5.1,\"Sepal.Width\":3.5,\"Petal.Length\":1.4,\"Petal.Width\":0.2,\"Species\":\"setosa\"},
# This works

但是，如果对前38行进行了相同的处理（例如iris[1:39, ]，并且将结果输出复制/粘贴并分配为新的json对象，则R控制台会期望有更多输入（即，它不会t分配）

iris[1:39, ] %>% toJSON(.) %>% dput(.)
# structure("[{\"Sepal.Length\":5.1,\"Sepal.Width\":3.5,\"Petal.Length\":1.4,\"Petal.Width\":0.2,\"Species\":\"setosa\"},

new_json_object <- structure("[{\"Sepal.Length\":5.1,\"Sepal.Width\":3.5,\"Petal.Length\":1.4,\"Petal.Width\":0.2,\"Species\":\"setosa\"},
# etc
# This does not work 

我很想知道是什么导致了这种行为。它是对单个R命令可以使用多长时间的限制，还是toJSON()或dput()有问题吗？