if (FALSE) {
## NOT RUN (data download + runs Raven.exe)
url<-"http://raven.uwaterloo.ca/files/RavenTutorialFiles.zip"
temploc <- tempdir()
destfile<-paste(temploc,"/RavenTutorialFiles.zip",sep="")
download.file(url,destfile)
destdir<-paste(temploc,"/RavenTutorialFiles",sep="")
dir.create(destdir)
unzip(zipfile=destfile,exdir=destdir)
file.remove(destfile)
## check that Raven.exe is downloaded
if (!rvn_download(check=TRUE)) {rvn_download()}
# Irondequoit example
rvn_run(indir=paste(destdir,"/Irond",sep=""),
showoutput=TRUE)
# run in Silent Mode (rvi option)
rvn_run(indir=paste(destdir,"/Irond",sep=""),
showoutput=TRUE,
rvi_options=c(":SilentMode"))
}
Run the code above in your browser using DataLab