simecek

# Example of ggvis scatterplot
# on over - display MGI gene symbol
# on click - open browser with Ensembl page

library(ggvis)

# load dataset
dataset <- read.csv("http://dl.dropboxusercontent.com/u/232839/DO_liver_variability_sex.csv", as.is=TRUE)
head(dataset)

simecek

# load dataset
dataset <- read.csv("http://dl.dropboxusercontent.com/u/232839/DO_liver_variability_sex.csv", as.is=TRUE)
head(dataset)

# make plot
library(ggplot2)
ggplot(aes(y=protein.Sex, x=mrna.Sex), data=dataset) + 
  geom_point(alpha=0.2, size=I(5)) + 
  geom_smooth(method=loess) + 
  ggtitle("Variability Explained by Sex") + theme_bw()

simecek

library(testjs)
dataset <- readRDS("click_on_ggvis\\DO_liver_variability_sex.rds")
head(dataset)
out <- with(dataset, iplot(x=protein.Sex, y=mrna.Sex, indID=Associated.Gene.Name, 
                           chartOpts=list(width=300, height=300)))
out
htmlwidgets::saveWidget(out, "iplot.html")

simecek

library(analogsea) # to access Digital Oceal
library(sendmailR) # to send emails
library(parallel)
library(doParallel)# foreach parallelization

# Sys.setenv(DO_PAT = "*****")

# Set list of participants' emails 
# email_list <- c("first_email@gmail.com", "second_email@gmail.com", ...)

simecek

library(shiny)
library(qtlcharts)

server <- function(input, output) {
  output$interactivePlot <- iplot_render({
    x <- rnorm(26) * ifelse(input$graphType == "higher values", 10, 1)
    y <- rnorm(26) * ifelse(input$graphType == "higher values", 10, 1)
    p1 <- iplot(x=x, y=y, indID = LETTERS, 
                chartOpts = list(title = input$graphType))
    return(p1)

simecek

simecek

simecek

simecek

simecek

# example of usage
setwd("c:/Users/simecekp/Downloads/")
fls <- dir(patter=".*jpg")
jpg_sort(fls,c("a", "s"))