r}, echo=FALSE}
puce_p <- {{puce.p}}
puce_pp <- ldply(strsplit(as.character(puce_p), split = "0"))
puce_p <- as.integer(puce_pp[, ncol(puce_pp)])
r paste(ifelse(puces[puce_p, 1] == 1, yes = "-", no = ifelse(puces[puce_p, 1] == 2, yes = " -", no = "")), puces[puce_p, 2], sep = " ")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.