In ashishjain1988/MAFDash: Create an HTML Dashboard to Visualize Data from MAF File

Burden Plots {data-orientation=columns}

# source("scripts/helper_functions/helper_functions.oncoplot.R")
# burden_plot <- generateBurdenPlot(maf, plotType = "Dotplot")
# 
# dotplotly <- plotly::ggplotly(burden_plot,tooltip = "text", width=500, height=600) %>% plotly::layout(yaxis=list(autorange = T,fixedrange= F))

burden_plot <- generateBurdenPlot(maf, plotType = "Barplot")

barplotly <- plotly::ggplotly(burden_plot,tooltip = "text", width=800, height=600) %>% plotly::layout(yaxis=list(autorange = T,fixedrange= F))

plots<-generateTiTvPlot(maf)

dotplotly<-plotly::subplot(plotly::subplot(plotly::style(plots$tiTvPatterns,showlegend = F),plotly::style(plots$TiTv,showlegend = F), nrows = 1, widths = c(0.5, 0.25)),plotly::style(plots$barplot,showlegend = F),nrows = 2) %>% plotly::layout(title = 'Transitions and Transversions plots',margin=list(l = 20,r = 20,b = 20,t = 70))

### Use CSS/javascript flex-wrap to contain the two plots
div(
  style = "display: flex; flex-wrap: wrap; justify-content: center",
  div(dotplotly, style = "width: 40%; border: groove;"),
  div(barplotly, style = "width: 60%; border: groove;"),
)