## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(dpi = 300)
knitr::opts_chunk$set(cache=FALSE)

## ----message=FALSE, warning=FALSE, include=FALSE------------------------------
library(TCGAbiolinks)
library(SummarizedExperiment)
library(dplyr)
library(DT)

## ----message=FALSE, warning=FALSE---------------------------------------------
subtypes <- PanCancerAtlas_subtypes()
DT::datatable(subtypes,
             filter = 'top',
             options = list(scrollX = TRUE, keys = TRUE, pageLength = 5),
             rownames = FALSE)

## ---- eval = FALSE------------------------------------------------------------
#  lgg.gbm.subtype <- TCGAquery_subtype(tumor = "lgg")

## ---- eval = TRUE, echo = FALSE-----------------------------------------------
datatable(
  lgg.gbm.subtype[1:10,],
  caption = "Table with LGG molecular subtypes from TCGAquery_subtype",
  filter = 'top',
  options = list(scrollX = TRUE, keys = TRUE, pageLength = 5), 
  rownames = FALSE
)

## ----sessionInfo--------------------------------------------------------------
sessionInfo()

