1 | reaction()
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function ()
{
sketch <- readJPEG("images.jpg")
dev.new()
par(mar = rep(0, 4))
plot(0:1, 0:1, type = "n", ann = FALSE, axes = FALSE)
rasterImage(sketch, 0, 0, 1, 1)
cond <- unlist(locator(n = 1))
if ((cond[1] > 0.4851762 & cond[1] < 0.6851762) & cond[2] >
(0.515712 - 0.1) & cond[2] < (0.515712 + 0.1)) {
cat("\n", "Stay Away from me", "\n")
}
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.