# 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() | |