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

Summary {data-orientation=rows}

Row {data-height=120}

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

ashishjain1988/MAFDash documentation built on Feb. 9, 2023, 9:54 p.m.