if (FALSE) {
data("sociologists")
sociologists$picture <- system.file("extdata", sociologists$picture,
package="netCoin")
sociologists$html <- get_template(sociologists, title="name",
title2="birth_country", text="school",img="picture", mode=2)
plot(gallery(sociologists, ntext="html"))
}
Run the code above in your browser using DataLab