# NOT RUN {
## Create an interactive heatmap in a temporal directory of your local machine
## Live examples on https://rjsplot.usal.es
if(interactive()){
metadata <- data.frame(phenotype1 = sample(c("yes","no"),ncol(mtcars),TRUE),
phenotype2 = sample(1:5,ncol(mtcars),TRUE))
heatmap_rjs(data.matrix(mtcars), metadata, scale="column")
}
# }
Run the code above in your browser using DataLab