| # file: runme.R | |
| dyn.load(paste("example", .Platform$dynlib.ext, sep="")) | |
| source("example.R") | |
| cacheMetaData(1) | |
| # Call our gcd() function | |
| x <- 42 | |
| y <- 105 | |
| g <- gcd(x,y) | |
| sprintf("The gcd of %d and %d is %d", x, y, g) | |
| # Manipulate the Foo global variable | |
| # Output its current value | |
| Foo() | |
| # Change its value | |
| Foo(3.1415926) | |
| # See if the change took effect | |
| Foo() | |