knitr::opts_chunk$set(echo = TRUE) suppressPackageStartupMessages({ library(SOUNDBoard) library(shiny) }) suppressMessages({ x <- SOUNDManager(getwd()) })
tbl(x, "board") %>% filter(board_uid == "GBMset") %>% sbreport() tbl(x, "cases") %>% filter(case_uid == "TCGA-32-2615") %>% select(-board_uid) %>% sbreport()
tbl(x, "assay") %>% filter(case_uid == "TCGA-32-2615", assay == "GISTIC2") %>% sbreport()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.