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)

Volcanoes

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) )


eahrne/SafeQuant documentation built on April 8, 2021, 10:10 a.m.