kable(dataForReport[["maf"]]@summary)
if ("vc_nonSyn" %in% names(dataForReport)) { kable(summarySilentMaf(dataForReport[["maf"]]@maf.silent,vc.nonSilent=dataForReport[["vc_nonSyn"]])) } else { kable(summarySilentMaf(dataForReport[["maf"]]@maf.silent)) }
#gvisTable(dataForReport[["maf"]]@variant.classification.summary,options=tableVisOptions) makeDataTable(dataForReport[["maf"]]@variant.classification.summary)
#gvisTable(dataForReport[["maf"]]@variant.type.summary,options=tableVisOptions) makeDataTable(dataForReport[["maf"]]@variant.type.summary)
#makeDataTable(summaryVariant(dataForReport[["maf"]],vIdCol=dataForReport[["vIdCol"]])[1:200,]) makeDataTable(dataForReport[["mafProcessed"]]$variantCountSummary[1:200,])
#gvisTable(dataForReport[["maf"]]@gene.summary,options=tableVisOptions) makeDataTable(dataForReport[["maf"]]@gene.summary)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.