Types of widgets
Static -- e.g., presenting static information, e.g., patient id, case number, ...
Interactive widgets -- JavaScript-based interactions for displaying static information that the user can manipulate, e.g., large tables, interactive plots.
shiny-based widgets -- Require evaluation in R, doing arbitrary 'read-only' operations that could potentially be time-consuming.
Linked widgets -- e.g., crosstalk -- choice of gene in table of variants updates choice of available drugs.
Status: planned, beta, available
Serialized R objects, other than data.frame()
or ggplot()
. beta
```
tbl(x, "assay") <- list( case_uid = "PATIENT_1", assay = "R object", description = "Demonstrating R object management", resource = manage(x, widget) ) ```
tbl_board
and tbl_cases
. beta
tbl(x, "board") <- list(
board_uid = "Unique_Board_ID"
description = "Board description"
)
tbl(x, "cases") <- list(
board_uid = "Unique_Board_ID",
case_uid = "Unique_Case_ID",
age = 36,
sex = "Male"
)
data.frame()
via DT::datatable()
. beta
```
tbl(x, "assay") %>% filter(case_uid == "Unique_Case_ID", assay == "data.frameObj") %>% sbreport() ```
ggplot()
via plotly::ggplotly()
. beta
```
tbl(x, "assay") %>% filter(case_uid == "Unique_Case_ID", assay == "ggplotObj") %>% sbreport() ```
ShinyAppWidget()
. beta
-specified via R code in a single file.
```
tbl(x, "assay") %>% filter(case_uid == "Unique_Case_ID", assay == "myApp") %>% sbreport() ```
ShinyAppDirWidget()
. beta
R code in ui.R / server.R files.
```
tbl(x, "assay") %>% filter(case_uid == "Unique_Case_ID", assay == "shinyAppDir") ```
HeatmapWidget()
. betaimplemented with ComplexHeatmap
```
widget <- HeatmapWidget(heatmap) tbl(x, "assay") <- list( case_uid = "PATIENT_1", assay = "R object", description = "Demonstrating R object management", resource = manage(x, widget) ) ```
OncoPrintWidget()
. beta
implemented with ComplexHeatmap
```
ht <- ComplexHeatmap::oncoPrint(...) tbl(x, "assay") <- list( case_uid = "TCGA-32-2615", assay = "onco", description = "Heatmap Widget Demo", resource = manage(x, ht) ) ```
DGIdbWidget()
. beta
## Query the DGI servers for drug data
dgi <- rDGIdb::queryDGIdb(...)
tbl(x, "assay") <- list(
case_uid = "TCGA-32-2615",
assay = "DGIdb",
description = "Druggability by Gene with 'resultSummary'",
resource = manage(x, dgi)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.