hackathon-jdc-2105-decouverte/.Rhistory
2015-09-26 20:32:07 -04:00

11 lines
900 B
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 %in% c("1989.295.08","CP.1983.107","1966.167"),
print(xtable(donnees_oeuvre),type="html")
)
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 %in% c("1989.295.08","CP.1983.107","1966.167"),
c("Artiste","Titre","Date.de.production","Département","Technique.d.expression")])
donnees_mnbaq$Numéro.d.inventaire %in% c("1989.295.08","CP.1983.107","1966.167")
donnees_oeuvre <- donnees_mnbaq[donnees_mnbaq$Numéro.d.inventaire %in% c("1989.295.08","CP.1983.107","1966.167"),
c("Artiste","Titre","Date.de.production","Département","Technique.d.expression")]
print(xtable(donnees_oeuvre),type="html")