## 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)
# })
# ## End(Not run)
Run the code above in your browser using DataLab