Nothing
r title_text
summaryInfo <- maf@summary summaryTable <- data.frame(Genome=summaryInfo$summary[summaryInfo$ID=="NCBI_Build"], Number_of_samples=summaryInfo$summary[summaryInfo$ID=="Samples"], Number_of_genes=summaryInfo$summary[summaryInfo$ID=="nGenes"], Mean_Variants=prettyNum(summaryInfo$Mean[summaryInfo$ID=="total"],digits=4), Median_Variants=prettyNum(summaryInfo$Median[summaryInfo$ID=="total"], digits=4) ) DT::datatable(summaryTable, style="bootstrap4", class=c("display"), fillContainer=T, escape = F, selection = "none", rownames=F, colnames=tools::toTitleCase(gsub("_"," ", colnames(summaryTable))), options=list(dom = 't',ordering=F,autoWidth=F, columnDefs = list(list(width = '80px', targets = "_all"), list(className = 'dt-center', targets = "_all")), initComplete = DT::JS( "function(settings, json) {", "$(this.api().table().header()).css({'font-size': '120%', 'background-color': '#ace1fa', 'color': '#424242'});", "}") ) ) %>% DT::formatStyle(columns = 1:ncol(summaryTable), fontSize = '120%',fontWeight="bold")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.