Loading...
 
Skip to main content

History: Profile_r_test1_simple_test

Preview of version: 9

Simple R commands to test that the installation went fine

Text output

This code:
Copy to clipboard
{R()}1:10{R}


Produces:


1.2. Simple Graphical output

This code:
Copy to clipboard
{R()}plot(1:10,11:20){R}


Produces:


1.3. Basic image with svg and pdf export

This code:
Copy to clipboard
{R(svg="1", pdf="1")}x<-c(1:10) y <- x*x plot(x,y) {R}


Produces:


Calling commands with admin validation (like install.packages, etc)

This command will attempt to install an R package, and it will require from an admin validation before it can be run from Tiki to the R server behind:
Copy to clipboard
{RR(loadandsave="1", wikisyntax="0", removen="0")} # Example adapted from the ones shown here: http://code.google.com/p/google-motion-charts-with-r/ # and here: http://www.r-bloggers.com/interactive-reports-in-r-with-knitr-and-rstudio/ # # If required the first time, uncomment the following line/s to install the required R packages, and edit the path and url to suite your needs if(!require(googleVis)){ install.packages("googleVis", repos="http://ftp.heanet.ie/mirrors/cran.r-project.org/") } {RR}


Will produce:


Once validated, it will show something like this (the fist time when the package was not installed yet):
'googleVis.Rnw'

The downloaded source packages are in
'/tmp/RtmpbI9rP4/downloaded_packages'


Or if we do't want to show the warning messages of the package loading on the wiki page, we can call the loading of the library with: suppressPackageStartupMessagesgoogleVis

Therefore, this:
Copy to clipboard
{RR(loadandsave="1", wikisyntax="0")} suppressPackageStartupMessages(library(googleVis)) {RR}


Will produce this other output:


(nothing)


1.4. Graphical output with advanced packages

Using GoogleVis package, for instance.

1.4.1. Basic chart with information shown when mousing over the points

This code:
Copy to clipboard
{R(wikisyntax="0" loadandsave="1", removen="0")} require(googleVis) df <- data.frame(x = 1:10, y = 1:10) ## load the googleVis package suppressPackageStartupMessages(library(googleVis)) ## create the scatter chart sc <- gvisScatterChart(data=df, options=list(width=300, height=300, legend='none', hAxis="{title:'x'}", vAxis="{title:'y'}") ) ## print(sc, "chart") ## same as cat(sc$html$chart) {R}


Produces:



1.4.2. Basic Geolocated Map

This code:
Copy to clipboard
{R(loadandsave="1", wikisyntax="0", removen="0")} require(googleVis) geo <- gvisGeoChart(CityPopularity, locationvar = "City", colorvar = "Popularity", options = list(region="US", height=350, displayMode = "markers", colorAxis = "{colors: ['orange','blue']}") ) print(geo, "chart") {R}


Produces:



Animated flash charts with time series data

This code:
Copy to clipboard
{R(loadandsave="1", wikisyntax="0", removen="0")} require(googleVis) M <- gvisMotionChart(Fruits, "Fruit", "Year", options = list(width = 550, height = 450)) print(M, "chart") {R}


Produces:




And once everything is ready in your system (all packages installed, etc), you'll see something like this:

Image

History

Information Version
Sat 31 of Aug, 2013 08:03 UTC Xavier de Pedro updated 11
Thu 30 of May, 2013 10:41 UTC Xavier de Pedro adedd echo param 10
Sun 24 of Mar, 2013 23:42 UTC Xavier de Pedro updated and simplified the first test 9
Sun 06 of Jun, 2010 16:28 UTC Xavier de Pedro 8
Sun 06 of Jun, 2010 16:14 UTC Xavier de Pedro 7
Fri 04 of Jun, 2010 18:05 UTC Xavier de Pedro 6
Wed 02 of Jun, 2010 09:39 UTC Xavier de Pedro 5
Mon 22 of Feb, 2010 20:52 UTC Xavier de Pedro 4
Mon 22 of Feb, 2010 19:35 UTC Xavier de Pedro 3
Mon 22 of Feb, 2010 19:27 UTC Xavier de Pedro 2
Sun 21 of Feb, 2010 13:44 UTC Xavier de Pedro initial version after replacing "Bug tracker" with "R_test" and "bug" with "dataset" 1
Collapse/expand modules below