if (FALSE) {
library(opalr)
opal <-
opal.login('administrator','password',
url ='https://opal-demo.obiba.org/')
tempdir <- tempdir()
invisible(dir.create(paste0(tempdir,"/a_file")))
invisible(file.create(paste0(tempdir,"/a_file","/file.txt")))
try(opal_files_push(opal, from = paste0(tempdir,"/a_file"), to = tempdir))
try(opal_files_pull(opal, from = paste0(tempdir,"/a_file"), to = tempdir))
}
Run the code above in your browser using DataLab