Creates an HTML-ized version of tabuleResults

The table produced here is broken into two sections (left and right). The left provides meta information about the geneset collections tested, ie. their names and number of genesets the contain. The right contains columns of results

summaryHTMLTable.sparrow(x, names = sparrow::resultNames(x), max.p, p.col)

Arguments

x

A SparrowResult() object.

names

the names of the GSEA methods to be reported. By default, this function will display results for all methods.

max.p

The maximum padj value to consider a result significant

p.col

use padj or padj.by.collection?

Value

a tagList version of an HTML table for use in a shiny app

Examples

sr <- sparrow::exampleSparrowResult()
summaryHTMLTable.sparrow(sr, max.p = 0.10, p.col = "padj")
#> <div class="sparrow-summary-table">
#>   <table>
#>     <thead>
#>       <tr class="super-header">
#>         <th colspan="2">Gene Sets</th>
#>         <th colspan="2">Analysis Summary</th>
#>       </tr>
#>       <tr class="sub-header">
#>         <th>Collection</th>
#>         <th>Count</th>
#>         <th>camera</th>
#>         <th>fry</th>
#>       </tr>
#>     </thead>
#>     <tbody>
#>       <tr>
#>         <td>c2</td>
#>         <td>30</td>
#>         <td>15 (6 up; 9 down)</td>
#>         <td>13 (4 up; 9 down)</td>
#>       </tr>
#>       <tr>
#>         <td>c6</td>
#>         <td>26</td>
#>         <td>9 (2 up; 7 down)</td>
#>         <td>15 (2 up; 13 down)</td>
#>       </tr>
#>       <tr>
#>         <td>c7</td>
#>         <td>20</td>
#>         <td>5 (3 up; 2 down)</td>
#>         <td>5 (1 up; 4 down)</td>
#>       </tr>
#>     </tbody>
#>   </table>
#> </div>