# Données de MNBAQ
```{r}
require("xtable")
```


## Extraction des données
```{r}
donnees_mnbaq <- read.csv(file="/home/francois/git/mnbaq_collections_septembre_2015.csv",header=TRUE,sep=";")

donnees_oeuvre <- donnees_mnbaq[donnees_mnbaq$Numéro.d.inventaire == "1989.295.08",c("Artiste","Titre","Date.de.production","Collection")]
```

## Présentation des données
```{r results='asis'}
print(xtable(donnees_oeuvre),type="html")
```

## Extraction de l'image

![oeuvre](https://d2bkax9t3zigfp.cloudfront.net/attachments/000/122/513/normal/bc275d82a7a748296ebccb69af5844c3?v=1)