pipeline.qmd

---
title: "Result of pipelines"
date: last-modified
format: 
  html:
    code-fold: true
engine: knitr
reference-location: margin
---

```{r}
#| label: loading stuff 
library(targets)
source("R/utils.R")
```


## Pipeline schema:

```{r}
#| label: get a glimpse of pipeline
tar_glimpse()
```


## County data 


### Focus on assignee for location: 


```{r}
#| label: table patent county
cnty <- read.csv("data/county_patent.csv", 
                 colClasses = c("character", "character", 
                                "numeric", "numeric",
                                "numeric")) 
suppressMessages(table_with_options(cnty))
```


### Using location of inventor

```{r}
#| label: table patent inv
cnty <- read.csv("data/county_inv.csv")
table_with_options(cnty)
```