Bug #13609
Updated by Bryan Cosca over 6 years ago
Using ArvadosR package 0.0.4, This is the script I'm using to reproduce:
<pre>
library(ArvadosR)
packageVersion("ArvadosR")
arv <- Arvados$new("api-token-redacted", "e51c5.arvadosapi.com", numRetries = 3)
previous_collection <- Collection$new(arv, "e51c5-4zz18-ko243dg1k5c6hid")
message("accessed previous collection")
file_to_be_transferred <- previous_collection$get("foo")
message("created ArvadosFile object to transfer")
newcoll <- arv$createCollection(list(name = "test-copy-foo", description = "foo"))
message("created new collection")
new_collection <- Collection$new(arv, newcoll$uuid)
message("created new collection object")
new_collection$add(file_to_be_transferred)
message("transferred file")
new_collection$uuid
</pre>
It resulted in this collection: https://workbench.e51c5.arvadosapi.com/collections/e51c5-4zz18-19p0djjs1yt7xq0
<pre>
$ ls -lah ~/keep-e51c5/e51c5-4zz18-19p0djjs1yt7xq0
total 1.5K
drwxrwxrwx 1 bcosc bcosc 0 Jun 11 19:40 .
dr-xr-xr-x 1 bcosc bcosc 0 May 17 18:25 ..
-rwxrwxrwx 1 bcosc bcosc 0 Jun 11 19:40 foo
</pre>