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