local(envir=.PBSmodEnv,expr={
cwd = getwd()
talk_dir <- system.file("examples", package = "PBSmodelling" )
setwd(talk_dir)
presentTalk( "swisstalk.xml" ) # closing the GUI should restore cwd
})
Run the code above in your browser using DataLab