Julien Barnier juba

Others in the series:

Here is some code for trelliscopejs combined with scatterD3.

I hereby claim:

To claim this, I am signing this object:

	library(quanteda)
	library(rainette)
	library(scatterD3)
	library(ggplot2)


	## Classification sur segments
	corpus <- corpus_subset(data_corpus_inaugural, Year > 1970)
	corpus <- split_segments(corpus)
	dtm <- dfm(corpus, remove = stopwords("en"), tolower = TRUE, remove_punct = TRUE)

	## Generate unique id for this table
	tab_id <- paste0("mytab_", session$token)


	output$table <- DT::renderDT({

	## Enable stateSave and configure callbacks to save and restore state
	## to/from sessionStorage
	options <- list(
	stateSave = TRUE,

	library(tidyverse)
	library(questionr)

	## On recrée le tableau d'exemple
	df <- tibble(
	producteur = c("Bénévole",
	"Rémunérée",
	"Rémunérée, Bénévole",
	"Bénévole, Rémunérée",
	"Rémunérée")

	---
	title: "test"
	date: "19 septembre 2017"
	---

	```{r setup, include=FALSE}
	knitr::opts_chunk$set(echo = TRUE)
	library(knitr)
	library(questionr)