RIGHT function not working as expected

Question

Hi,
Am trying to run the example given in the documentation for RIGHT function.
When a call is made, the IE is opened but the graph is not displayed, instead an empty web page with a header having copyright and E-mail : [email protected] is shown.
Code used:
library(ggplot2)
set.seed(123456)
subArray <- diamonds[sample(1:nrow(diamonds), 1000, TRUE), ]
fitObj <- loess(price ~ carat, subArray) xRange <- range(subArray$carat) fitArray <- data.frame(carat = seq(xRange[1], xRange[2], length.out = 100))
fitArray$price <- predict(fitObj, newdata = fitArray)
obj <- RIGHT({plot(price ~ carat, subArray, type = "p", color = "color") lines(price ~ carat, fitArray) hist(color, subArray, color = "cut") boxplot(price ~ color, subArray) pie(cut, subArray) search(subArray) table(subArray)})
print(obj)
OS: Windows 7 64 bit, IE8
- A warning  is shown saying that the IE has restricted the web page from running scripts, did right click and selected Allow Blocked content.
- Below Java script error are shown,
Message: Object doesn't support this property or method
Line: 1256
Char: 9
Code: 0
URI: file:///C:/Users/swuppala.ORADEV/Documents/R/win-library/3.0/RIGHT/JavaScript/kinetic-v4.7.0.js
Message: Object doesn't support this property or method
Line: 5
Char: 1
Code: 0
URI: file:///C:/Users/swuppala.ORADEV/Documents/R/win-library/3.0/RIGHT/JavaScript/node_event.js
Message: 'Kinetic.Factory' is null or not an object
Line: 487
Char: 5
Code: 0
URI: file:///C:/Users/swuppala.ORADEV/Documents/R/win-library/3.0/RIGHT/JavaScript/box.js
Message: Access is denied.
Line: 32
Char: 2
Code: 0
URI: file:///C:/Users/swuppala.ORADEV/Documents/R/win-library/3.0/RIGHT/JavaScript/structure.js
Please suggest.
Thanks,
Swathi.

Answer 1

Looking further at the RIGHT package wiki FAQs, you might try another browser such as Chrome or Firefox and update the local security policy as described.
Sherry