suppressPackageStartupMessages({ library(SOUNDBoard) library(shiny) }) suppressMessages({ x <- SOUNDManager(getwd()) })
tbl(x, "board") %>% filter(board_uid == "Mitochondrial Diseases") %>% sbreport() tbl(x, "cases") %>% filter(case_uid == "PATIENT_1") %>% select(-board_uid) %>% sbreport()
tbl(x, "assay") %>% filter(case_uid == "PATIENT_1", assay == "data.frame") %>% sbreport()
tbl(x, "assay") %>% filter(case_uid == "PATIENT_1", assay == "ggplot") %>% sbreport()
tbl(x, "assay") %>% filter(case_uid == "PATIENT_1", assay == "shiny") %>% sbreport()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.