# 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 = "/"))