Skip to contents

Full Widget with Filters, Search, Export and CSS

Source: R/Results_List_reactable.R
results_list_widget.Rd

Wraps results_list_reactable() with interactive crosstalk filters (Comparison, Change, Method), a search box, an export-to-Excel button and embedded CSS. The result is browsable: printing it at the console opens it automatically in the RStudio Viewer or in the browser.

Usage

results_list_widget(
  data,
  protein_quant = NULL,
  comparisons = NULL,
  ain = NULL,
  alpha = 0.05,
  lfc_thr = 0,
  page_size = 15,
  height = 720,
  show_missing = TRUE,
  element_id = "deps_table",
  selection = NULL,
  searchable = TRUE
)

Arguments

data

Data frame or path to a TSV/CSV/Parquet file with DE results. Required columns: Protein.IDs, Gene.Names, logFC, P.Value, adj.P.Val, Change, Comparison. Optional: Assay, and the four missingness columns MissGlobal, MissComp, MissCND1 and MissCND2, which are shown only if all four are present

protein_quant

Data frame (preprocessing$protein_quant) or path to a Protein_QUANT_*.tsv file. If not NULL, the Description and Quant_Pepts columns are added.

comparisons

Vector of comparisons to include (NULL = all of them)

ain

Vector of assays to keep (NULL = all of them)

alpha

Significance threshold used to highlight the FDR (default: 0.05)

lfc_thr

log2 fold-change threshold (default: 0, reserved for future use)

page_size

Rows per page (default: 15)

height

Table height in pixels (default: 720)

show_missing

Show the missingness percentage columns (default: TRUE)

element_id

Element ID (default: "deps_table")

selection

Selection type: "single", "multiple", or NULL (default: NULL)

searchable

Enable the internal search box (default: TRUE)

Value

A browsable htmltools object

Examples

if (requireNamespace("crosstalk", quietly = TRUE)) {
  data(nadia_dia)
  res <- process_proteomics(nadia_dia, verbose = FALSE)

  # Printing the widget opens it in the Viewer / browser
  w <- results_list_widget(res$DEPs_results,
                           protein_quant = nadia_dia$protein_quant)
  print(class(w))
}
#> [1] "shiny.tag.list" "list"