---
title: "Visualize Categorical Signals"
author: "Zuguang Gu ( z.gu@dkfz.de )"
date: '`r Sys.Date()`'
output:
  html_document:
    toc: true
    toc_depth: 3
    toc_collapsed: false
    toc_float: true
vignette: >
  %\VignetteIndexEntry{2. Visualize Categorical Signals}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---


```{r, echo = FALSE, message = FALSE}
library(knitr)
knitr::opts_chunk$set(
    error = FALSE,
    warning = FALSE,
    message = FALSE)
library(markdown)
options(width = 100)
```


```{r, eval = grepl("tbi", Sys.info()["nodename"]) & Sys.info()["user"] == "guz", echo = FALSE}
knit("visualize_categorical_signals", output = "visualize_categorical_signals.md", quiet = TRUE)
```

```{r, echo = FALSE, results = "asis"}
lines = readLines("visualize_categorical_signals.md")
cat(lines, sep = "\n")
```