summary_report_word.Rmd

---
title: "Summary Report"
author: "User Name"
date: "`r format(Sys.time(), '%d %B, %Y')`"
output: word_document
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = F)
```



```{r Interval1, out.width = "510px"}
saveWidget(PivotTable(), file= 'temp_Pivot_single.html')
respivot = webshot::webshot('temp_Pivot_single.html','my-screenshot-Pivot_single.png', zoom = 1.2)
knitr::include_graphics(respivot)
```