sow_template.Rmd

---
output:
  word_document:
    reference_docx: "style_reference.docx"
params:
  filtered_data: NA
  rates_data: NA
  total_hours: NA
  total_budget: NA
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, message = FALSE, warning = FALSE)
```

```{r data}
# load in reactive data
data <- params$filtered_data

rates <- params$rates_data

total_hours <- params$total_hours

total_budget <- params$total_budget
```

![](CSU-Signature.png)

# Statement of Work:

# `r data$"Project Name"`

------------------------------------------------------------------------

## **Project Overview**

`r data$"Project Description"`

<br>

<br>

## **Project Timeline:** `r data$"Preferred project start date:"` - `r data$"Closeout: When does this project need to be completed?"`

<br>

## **Tasks and Deliverables**

<!-- should we ask users to input this information with bullet points in form? -->

`r data$"Tasks and/or specific deliverables to be performed by the Geospatial Centroid"`

<br>

### 

## **Timeline and Milestones:**

```{r}
flextable(tibble(Deadline = "placeholder", Deliverable = "placeholder")) %>% 
  bold(i = 1, part = "header") %>% 
  border_remove() %>% 
  hline(part = "all") %>% 
  width(width = 3)
```

<br>

<br>

## Total hours by task:

```{r}
flextable(tibble(Task = "placeholder", Hours = "placeholder")) %>% 
  bold(i = 1, part = "header") %>% 
  border_remove() %>% 
  hline(part = "all") %>% 
  width(width = 3)
```

<br>

## **Total staff hours and budget:**

<br>

```{r out.width="80%"}
rates %>% 
  filter(Hours != 0) %>% 
  mutate(Total = (Rate*Hours)) %>% 
  bind_rows(tibble(Hours = sum(.$Hours), Total = sum(.$Total))) %>% 
  flextable() %>% 
  bold(i = 1, part = "header") %>% 
  colformat_num(j = c(2,4), prefix = "$") %>% 
  border_remove() %>% 
  hline(part = "all") %>% 
  width(width = 1)
```

<br>

## *`r total_hours`*

## *`r total_budget`*

<br>

<br>

## **Invoice Schedule**

```{r}
flextable(tibble(Date = "placeholder", Amount = "placeholder")) %>%    
  bold(i = 1, part = "header") %>% 
  border_remove() %>%    
  hline(part = "all") %>%    
  width(width = 2.5)
```

<br>

## **Key Staff:**

<br>

## **Modes of communication and collaboration**:

-   Placeholder

<br>

###