knitr::opts_chunk$set(echo = TRUE) library(plotly) library(magrittr) library(SafeQuant) library(affy) library(motifStack) library(dplyr) library(DiffLogo) library(ggplot2) library(ggrepel) library(knitr)
plotlyWidgets <- htmltools::tagList() p = ggVolcanoPlot(data=ggDf,pValueThrs=pValueThrs,log2RatioThrs=log2RatioThrs,thrsLineCol = "lightgrey",thrsLineLty = 2, title="test title") plot(p) # plotlyWidgets[[paste0(cond,"kinaseDown")]] = suppressWarnings(as.widget( ggplotly(q3))) plotlyWidgets[["1"]] = suppressWarnings(as.widget(ggplotly(p))) plotlyWidgets[["2"]] = suppressWarnings(as.widget(ggplotly(p))) plotlyWidgets ggplotly( plotAllGGVolcanoes(sqa) )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.