---
output:
html_document:
code_folding: hide
---
```{r block2, message=FALSE, fig.width=fig.1.width, fig.height=fig.1.height, dev='svg'}
## packages
library(ggplot2)
library(moonBook)
library(webr)
dataframe <- acs
PieDonut(dataframe,aes(pies=Dx,donuts=smoking))