# load opal library library(opalr) o <- opal.login('pepe','7G9b!!2IyJs$', url = 'https://uncover.itg.be') dir_name <- readline("Introduce the name of the directory please: ") setwd(dir_name) rval <- opal.execute.source(o, paste(dir_name , "script.R" , sep = "/"))