# NOT RUN {
local(envir=.PBSmodEnv,expr={
cwd = getwd()
edir <- system.file("examples", package = "PBSmodelling" )
file.copy(paste(edir,"fib.c",sep="/"), tempdir(), overwrite=TRUE)
setwd(tempdir())
compileC("fib.c", lib="myLib", options="myObj.o", logWindow=FALSE)
print(list.files())
setwd(cwd)
})
# }
Run the code above in your browser using DataLab