index.Rmd

---
title: An Introduction to Text Processing and Analysis with R
subtitle: In the beginning was the word \.\.\.
author:  |
  <span class="noem">Michael Clark</span> 
  <a href='https://m-clark.github.io/'>m-clark.github.io</a>
  <img class='arc' src="img/CSCAR_logos/signature-acronym.png" alt="University of Michigan: CSCAR">
  <img class='cscar' src="img/ARC_logos/ARC-acronym-signature.png" alt="University of Michigan: Advanced Research Computing"> 
date: "`r Sys.Date()`"
site: bookdown::bookdown_site
output:
  bookdown::gitbook
always_allow_html: yes
documentclass: book
#bibliography: refs.bib
biblio-style: apalike
link-citations: yes
description: "This document covers a wide range of topics, including how to process text generally, and demonstrations of sentiment analysis, parts-of-speech tagging, word embeddings, and topic modeling. Exercises are provided for some topics."
cover-image: 'img/nineteeneightyR.png'
url: 'https\://m-clark.github.io/text-analysis-with-R/'  # evidently the \: is required or you'll get text in the title/toc area
github-repo:  'm-clark/text-analysis-with-R/'
favicon: 'img/R.ico'
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE, message=F, warning=F, error=F, comment=NA, R.options=list(width=220),   # code 
                      dev.args=list(bg = 'transparent'), dev='svg', fig.align='center',     # viz
                      cache.rebuild=F, cache=T)                                                 # cache
```

```{r packages, include=FALSE, cache=FALSE}
library(magrittr) 
library(tidyverse)
library(stringr) 
library(pander) 
library(plotly) 
library(visibly)
library(kableExtra)
kable_styling_df = function(...) kableExtra::kable_styling(..., 
                                                           full_width = F, 
                                                           bootstrap_options = c("hover", "condensed", "responsive"))
kable_df = function(...) kable(...) %>% kable_styling_df()
```

```{r setup_heat, echo=FALSE, cache=FALSE}
# currently using css and formatStyle for customization
# library(htmltools)  
# tags$style(".d3heatmap { margin-left: 50px; margin-right: 50px; }")
# tags$style(".datatable { 'dom': 'pt' }")  # this and variations do not work
# options(DT.options = list(dom='pt'), DT.rownames=F)      # this doesn't either
# options(datatable.options = list(dom='pt'), datatable.print.rownames=F)      # this doesn't either
# tags$style(".plotly { margin-left: auto; margin-right: auto;}") # heatmapr will awesomely override this if subplot widths = 1
```


#

```{r rimg, fig.align='center',  out.width=200, echo=FALSE, cache=FALSE}
knitr::include_graphics('img/198R.png', dpi = NA)
```

```{r ccimg, fig.align='center', out.width=0, fig.show='hide', echo=FALSE}
knitr::include_graphics('img/mc_logo.png', dpi = NA)
```