Testing several commands, including a dynamic display of some command based on user input through 'Pretty Tracker'
Test 2a - basic R command
This code:
Produces:
Plugin disabled
Plugin r cannot be executed.
Test 2b - basic plotting
This code:
Produces:
Plugin disabled
Plugin r cannot be executed.
Test 2c - dynamic variable usage
{$user}
{{user}}
Test 2d - parsing html code
{R()}print("<b>hello</b>"){R}
Plugin disabled
Plugin r cannot be executed.
Test 2e - wikisyntax param
Attempt parsing with different values for wikisyntax param
no wikisyntax set
{R()}print("__hello__"){R}
Plugin disabled
Plugin r cannot be executed.
wikisyntax set to 0
{R(wikisyntax=>0)}print("__hello__"){R}
Plugin disabled
Plugin r cannot be executed.
wikisyntax set to 1
{R(wikisyntax=>1)}print("__hello__"){R}
Plugin disabled
Plugin r cannot be executed.
Test 2i - pretty tracker through .tpl on disk
Showing R output through a Pretty tracker template (.tpl file) on disk. You need to create a tpl on disk under templates/r_test2_template01.tpl with the content that you will find at
r_test2_template01 wiki page.
{CODE(wrap=>1)}
You do not have permission to insert an item
{TRACKERLIST(trackerId=>$profileobject:r_test_tracker1$, showlinks=>y, tpl=>$profileobject:r_test2_template01_page$)}
{CODE}
You do not have permission to insert an item
Test 2j - plotting some other graphs with some more data and functions, with different parameters
Test 2j1 - Using default: res 72, pointsize 12,
Width 500px and rest by default: res 72, pointsize 12, bg "transparent"
^{R(width=500)}data(cars)
plot( cars$dist ~ cars$speed )
title('Test 2j1 - By default, res 72, pointsize 12, bg transparent')
m <- lm( cars$dist ~ cars$speed )
k <- coef(m)
curve( k[1] + k[2]*x , from=min(cars$speed) , to=max(cars$speed) , add=TRUE ){R}^
Plugin disabled Plugin r cannot be executed.
|
|
Test 2j2 - res 120 & pointsize 12 & bg yellow
If not pointsize is set, default value (12) is used.
^{R(width=500 res=120 units=px bg=yellow)}data(cars)
plot( cars$dist ~ cars$speed )
title('Test 2j2 - res 120 & pointsize 12 & bg yellow')
m <- lm( cars$dist ~ cars$speed )
k <- coef(m)
curve( k[1] + k[2]*x , from=min(cars$speed) , to=max(cars$speed) , add=TRUE ){R}^
Plugin disabled Plugin r cannot be executed.
|
Test 2j3 - res 72 & pointsize 16
^{R(width=500 res=72 pointsize=16 units=px)}data(cars)
plot( cars$dist ~ cars$speed )
title('Test 2j3 - res 72 & pointsize 16')
m <- lm( cars$dist ~ cars$speed )
k <- coef(m)
curve( k[1] + k[2]*x , from=min(cars$speed) , to=max(cars$speed) , add=TRUE ){R}^
Plugin disabled Plugin r cannot be executed.
|
|
Test 2j4 - res 120 & pointsize 16
^{R(width=500 res=120 pointsize=16 units=px)}data(cars)
plot( cars$dist ~ cars$speed )
title('Test 2j4 - res 120 & pointsize 16')
m <- lm( cars$dist ~ cars$speed )
k <- coef(m)
curve( k[1] + k[2]*x , from=min(cars$speed) , to=max(cars$speed) , add=TRUE ){R}^
Plugin disabled Plugin r cannot be executed.
|