# load opal library
library(opalr)

o <- opal.login('opal_admin','nK5&@WC1A13M', url = 'https://opal.aulss6.veneto.it')


dir_name <- readline("Introduce the name of the directory please: ")

setwd(dir_name)

rval <- opal.execute.source(o, paste(dir_name , "script.R" , sep = "/"))