History: Profile_r_test10_clickme

• «
• »

            Testing clickme package: https://github.com/nachocab/clickme

^__Try zooming in and out in the figures below, click the Show names button, hover over points, filter by point names in the search box__^

{maketoc title="" levels="2,3"}

!! Installation
{RR(echo="1")}
r <- getOption("repos")
r["CRAN"] <- "http://ftp.heanet.ie/mirrors/cran.r-project.org/"
options(repos=r)

if(!require(devtools)){ install.packages("devtools", repos="http://ftp.heanet.ie/mirrors/cran.r-project.org/") }
require("devtools")
if(!require(clickme)){ install_github("clickme", "nachocab") }
{RR}

!! 1st example: rnorm(100)
{RR(echo="1")}
require(clickme)
#getOption('clickme_output_path') 
options(clickme_output_path = "/var/www/{{domainslash_if_multitiki}}temp/public/{{domainslash_if_multitiki}}")
clickme(points, 
		rnorm(100),
        title = "Testing Clickme with rnorm(100)",
		height = 300, width = 300,
		file = "clickme1.html") # try zooming in and out, click the Show names button, hover over points
{RR}

{CODE()}
{iframe name="clickme1" title="Testing Clickme with rnorm(100)" width="110%" height="600px" align="middle" frameborder="0" marginheight="0" marginwidth="0" scrolling="auto" src="./temp/public/{{domainslash_if_multitiki}}clickme1.html"}
{CODE}


{iframe name="clickme1" title="Testing Clickme with rnorm(100)" width="110%" height="600px" align="middle" frameborder="0" marginheight="0" marginwidth="0" scrolling="auto" src="./temp/public/{{domainslash_if_multitiki}}clickme1.html"}

!! 2nd example

{RR(echo="1")}
require(clickme)
#getOption('clickme_output_path') 
options(clickme_output_path = "/var/www/{{domainslash_if_multitiki}}temp/public/{{domainslash_if_multitiki}}")
# fancy
n <- 500
clickme(points,
        x = rbeta(n, 1, 10), y = rbeta(n, 1, 10),
        names = sample(letters, n, r = T),
        color_groups = sample(LETTERS[1:3], n, r = T),
        title = "Testing Clickme with letters",
		height = 300, width = 300,
		file = "clickme2.html")
{RR}

{CODE()}
{iframe name="clickme2" title="Testing Clickme with letters" width="110%" height="600px" align="middle" frameborder="0" marginheight="0" marginwidth="0" scrolling="auto" src="./temp/public/{{domainslash_if_multitiki}}clickme2.html"}
{CODE}

{iframe name="clickme2" title="Testing Clickme with letters" width="110%" height="600px" align="middle" frameborder="0" marginheight="0" marginwidth="0" scrolling="auto" src="./temp/public/{{domainslash_if_multitiki}}clickme2.html"}


!! 3rd example: Microarray experiment

{RR(echo="1")}
require(clickme)
#getOption('clickme_output_path') 
options(clickme_output_path = "/var/www/{{domainslash_if_multitiki}}temp/public/{{domainslash_if_multitiki}}")
data(microarray)
clickme(points, x = microarray$significance, y = microarray$logFC,
        color_groups = ifelse(microarray$adj.P.Val < 1e-4, "Significant", "Noise"),
        names = microarray$gene_name,
        xlab = "Significance (-log10)", ylab = "Fold-change (log2)",
        extra = list(Probe = microarray$probe_name),
        title = "Results from a Microarray experiment",
		height = 300, width = 300,
		file = "clickme3.html")
{RR}

{CODE()}
{iframe name="clickme3" title="Testing Clickme with a Microarray experiment" width="110%" height="600px" align="middle" frameborder="0" marginheight="0" marginwidth="0" scrolling="auto" src="./temp/public/{{domainslash_if_multitiki}}clickme3.html"}
{CODE}

{iframe name="clickme3" title="Testing Clickme with a Microarray experiment" width="110%" height="600px" align="middle" frameborder="0" marginheight="0" marginwidth="0" scrolling="auto" src="./temp/public/{{domainslash_if_multitiki}}clickme3.html"}